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ABSTRACT 


Tnis  tnesis  describes  tne  detailed  interrace  design  and 
implementation  or  tne  Micropolis  1220  rigid  diss  storage 
unit  into  tne  AEGIS  multiuser  environment.  At  tne  onset  or 
tnis  worse,  tne  AEGIS  development  system  consisted  of  an  MBB- 
80  bubble  memory,  tne  REMEX  Data  Warehouse  lisic  system,  and 
four  INTEL  ISBC  S6/12A  single  board  computers.  Tne 
Micropolis  interface  was  accomplisned  utilizing  tne  INTEL 
8255  programmable  parallel  I/O  port  resident  on  one  cf  tne 
AEGIS  iSBC  86/12A  computers.  Tne  iSBC  86/12A  used  for  tne 
interface  can  still  be  operated  as  an  independent  computer 
witn  all  Micropolis  dislr  operations  being  transparent  to  tne 
user.  Tne  Micropolis  disx  unit  adds  an  additional  35.5 
megabytes  of  online  storage  to  tne  AEGIS  system. 
Utilization  of  tne  Micropolis  diss  system  as  a  software 
development  storage  media  will  rree  tne  REMEX  Data  Warenouse 
for  storage  of  "radar  data"  to  emulate  the  SPY-1A  radar. 
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1  •  If±TR0DUCTX2^ 

A.  DISCLAIMER 

Many  terns  used  in  tnis  tnesis  are  registered  trademarks 
of  commercial  products.  Ratner  tnan  attempt  to  cite  eacn 
individual  occurrence  of  a  trademark,  ail  registered 
trademarks  appearing  in  tnis  tnesis  will  oe  listed  telow, 
following  tde  firm  nolding  tne  trademark. 

Intel  Corporation,  Santa  Clara,  California: 

INTEL  MU1TI2US  INTSLLEC  MDS 

iCS  iS3C 

Pacific  Cy oe r/Metrixs  Incorporated,  DuDlin,  California: 
EuoDl-3oarc  MBB-ytf  3uDDl-3oard 

EX-CSLL-0  Corporation,  Irvine,  California: 

REM  El  Data  Wa renouse 

Digital  Researcn,  Pacific  Grove,  California: 

CP/y  CP/M-ye 

Micropolis  Corporation,  Cnatswortn,  California: 

Micropoli s 

3.  GENERAL  DISCUSSION 

Tne  AEGIS  weapons  system  simulation  project  is  an 
ongoing  study  currently  Deing  conducted  at  tne  Naval 


Postgraduate  Scnool.  Tne  primary  objective  of  tnis  study  is 
to  investigate  tne  feasibility  of  replacing  tne  present, 
four-processor  A.N/UI X-?  mainframe  computer  witn  a  multiple 
microcomputer  based  arcni tecture. 

Tne  primary  mission  of  tne  multiprocessor  system  is  to 
provide  computer  control  for  tne  SPY-1A  radar  system.  Inis 
system  collects  large  amounts  of  data  concerning  target 
detection  and  acquisition  wnicn  must  be  processed  in  real¬ 
time.  A  microcomputer  based  system  can  provide  tne  same 
signal  processing  in  real-time  only  if  mere  tnan  one 
processor  is  used  and  tne  computations  are  performed 
concurrently. 

Tnus,  tne  first  logical  step  of  tne  A3G-I S  study  was  to 
identify  a  viable  microcomputer  and  design  an  efficient 
operating  system  capable  of  managing  concurrent  processes. 
A  detailed  design  of  suen  an  operating  system  was  presented 
by  Vasson  in  1990  [Pef.  lj .  Tnis  design  was  based  on  tne 
INTEL  iSBC  96/12A  microcomputer.  Tnis  is  a  single  board 
computer  based  on  tne  INTEL  9096  16-bit  microprocessor.  Tne 
operating  system,  MCORTEX,  was  implemented  using  Wasson's 
design  and  refined  many  times.  Klinefelter  demonstrated  tne 
first  truly  efficient  implementation  of  "CORTEX  witn  four 
IS BC  86/12A ' s  in  June  of  1992  [Ref.  2J. 

Because  '■'CORTEX  was  a  verv  specialized  manager  of 
concurrent  processes,  it  was  not  an  operating  system  well 
suited  for  program  module  development.  Thus,  tne  next 


logical  step  of  tne  project  was  to  identify  an  operating 
system  that  could  be  easily  inteerated  into  tne  same 
Hardware  utilized  by  MCORTEX.  Tnis  would  allow  tne  sane 
system  to  be  used  for  botn  sienal  processing  emulation  oy 
MCORTEX  and  as  a  software  development  tool.  CP/M-36, 
developed  by  Digital  Researcn  for  use  witn  tne  INTEL  be86 
microprocessor,  was  cnosen  for  tnis  purpose.  Tnis  cnoice 
offered  tne  maximum  in  flexibility  m  tnat  tnis  operating 
system  could  be  user  configured  for  different  or  ''naneine 
Hardware  environments. 

Miie  Candalor  besan  the  integration  process  by  molifyin? 
tne  Sasic  Input/Output  System  (BIOS)  of  CP/M-25  for  use  on 
an  INTEL  MDS  system.  This  was  demonstrated  in  June  ,of  1981. 
[Ref.  2 J 

HicKlin  and  Neufell  continued  tne  integration  process  b.v 
adding?  a  bubble  memory  to  tne  MULTIBUS  and  a^ain  altering 
tne  BIOS  to  reflect  the  current  Hardware  [Ref.  4 J  .  Due  to 
tne  non-volatile  nature  of  a  bubble  memory,  it  was  used  in 
this  application  to  store  tne  CP/M-68  operating?  system. 
Tnis  permitted  a  fast,  easy  metnod  of  downloading  the 
operating  system  into  random  access  memory  (RAM)  wnen  power 
was  applied  to  the  system. 

Since  the  Klinefelter  demonstration  employed  simulated 
processes,  it  was  necessary  to  develop  a  metnod  by  which  tne 
SPT-1A  radar  could  be  emulated  in  real-time.  A  nara  list 


drive,  interfaced  through  direct  memory  access  (D* A),  was 
determined  suitable  for  tnis  purpose  due  to  its  nign  speed 
and  large  storage  capacity.  It  was  also  considered 
desirable  to  mate  maximum  use  of  tne  available  nardvare  wnen 
the  system  was  being  operated  in  the  software  development 
mode.  Tnis  required  that  each  single  board  computer  nave 
tne  capability  of  supporting  an  independent  user.  These  two 
concepts  were  brought  together  and  demonstrated  with  a  four- 
board,  multi-user  system  by  Almuuist  anc  Stevens  in  December 
1982.  [Ref.  5J 

At  this  point  tne  system  still  lacied  a  capability  of 
storing  software  for  future  refinement.  Tnis  tnesis 
completes  tne  program  development  system  Dy  presenting  the 
nardvare  interface  design  and  software  implementation  of  tne 
Micropolis  dist  drive  into  the  multi-user  system  as 
developed  by  Almquist  and  Stevens. 

C.  FORMAT  OF  THESIS 

Cnapter  I  gives  a  general  overview  of  tne  AEGIS  researcn 
effort.  It  also  provides  a  general  developmental  history  of 
tne  project  and  explains  wny  tne  researcn  worse  accomplished 
by  tnis  thesis  was  essential  to  the  project. 

Cnapter  II  addresses  tne  system  architecture.  Detailed 
discussion  is  given  of  all  major  hardware  components  as  tnis 
was  the  existing  hardware  environment  into  wr.ich  tne 
Micropolis  diss  drive  had  to  be  interfaced. 
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Cnapter  III  describes  the  details  or  the  AEGIS  multiuser 
system  software.  Tne  standard  CP/M-86  operating  system  is 
discussed  in  moderate  detail.  Also  covered  in  this  chapter 
is  a  powerful  modification  to  CP/M-86  that  was  developed 
during  prior  wort.  Tnis  modification  provides  a  simple  and 
efficient  method  for  altering  the  hardware  environment 
supported  ey  tne  operating  system. 

Tne  nardware  interface  developed  for  the  vicropolis  Usk 
system  is  presented  in  cnapter  IV.  i’irst,  tne  details  of 
tne  reaui rements  imposed  on  tne  design  of  tne  interface  Dy 
the  Micropolis  controller  are  presented.  This  is  followed 
by  tne  development  of  a  functional  interface  to  meet  tnose 
requiremen  ts . 

Cnapter  V  presents  tne  software  Implementation  of  tne 
Micropolis  into  tne  CP/M-86  operating  system  and  Cnapter  VI 
summarizes  tne  development  wort  accomplished  during  tnis 
tnesis.  Included  in  Cnapter  VI  is  a  comparison  of  tne  disff 
access  times  required  by  tne  P.EMEX  Data  Warehouse  (a  DMA 
interfaced  nard  hiss)  and  tne  Micropolis  dis£  system  (a 
programed  I/O  interfaced  hard  aisif). 
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II.  SYSTEM  ARCPITECTURE 


is  stated  in  tne  introduction,  tne  desicn  of  the  M COST  EX 
operating  system  and  tne  software  development  system  was 
based  on  tne  INTEL  1S£C  86/12A  single  board  computer  and 
various  peripneral  components.  Figure  2.1  depicts  tne 
interconnection  of  tnese  components  as  tney  existed  at  tne 
onset  of  tnis  researcn  effort.  In  tne  paragraphs  tr.at 
follow,  a  description  of  eacn  component,  as  well  as  its 


role  in  tne  overall 

system , 

is 

given.  An  exnaustive 

description  of  eacn 

device 

can  oe  found 

in  tne  cited 

references . 

A.  INTEL  80S 6 

Tne  INTEL  8086  is 

a  men 

perf 

ormance,  general  purpose 

16-bit  microprocessor. 

It  is 

tne 

foundation 

upon  which  the 

AEGIS  developmental  system  Is 

built.  Refer 

to  Figure  2.2 

for  a  general  overview  of 

i  ts 

internal 

structure  and 

organization.  Tnis 

section 

is 

intended  to 

give  general 

Knowledge  about  tnis 

device . 

A 

detailed  des 

cription  can 

found  in  [Ref .  6] . 

1 .  Gen®rai  Pu rpo s 

e  and  Flags 

Registers 

As  can  be  seen  in  Figure  2.2,  tnere  are  eight  16-oit 


general  purpose  registers.  Four  of  tnese  are  byte  or  word 
addressable  and  are  referred  to  as  "tne  data  croup".  Tne 
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Figure  2.1  Syetea  Configuration 
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remaining  four  are  only  word  addressable  and  are  referred  as 
"tne  pointer  and  Index  group". 

The  flags  register  Is  15  bits  wide  and  consists  of 
nine  usable  status  bits.  Tne  remaining  seven  are  undefined. 

The  nine  bits  are  divided  into  six  status  fiaes  and  three 
control  flags.  Tne  status  flags  are  set  by  tne  6086  as  tne 
result  of  arithmetic  or  logical  operations.  Tne  control 
flags  are  set  tnrougn  programmed  instructions.  Of 
particular  importance  is  tne  IF  control  flag.  This  flag  is 
used  to  enable/disable  maskable  interrupts  and  must  be 
properly  set  for  the  system  to  function  correctly.  The  IF 
or  interrupt-enable  flag  is  discussed  in  greater  detail  in 
Section  4  of  tnis  chapter. 

2 .  Segment  Registers. 

Altnougn  tne  8086  nas  segment  registers  and  tne 
technical  literature  discusses  segmentation  as  related  to 
the  microprocessor,  this  Should  not  be  confused  with 
segmentation  as  is  generally  defined  for  operating  systems. 
The  operating  system  definition  supports  tne  ideas  of  memory 
management  and  segment  access  cnects  cut  tne  8086  nas  no 
special  hardware  tnat  supplies  tnese  functions.  However, 
addressing  is  segment-11  see  in  tnat  it  is  two-dimensional. 

Physical  addresses  are  generated  from  two  16-olt 
values:  a  base  and  an  offset  value.  Tne  case  value  is 
shifted  left  four  bits  and  tne  offset  is  added  to  this 
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snifted  version  to  arrive  at  a  pnysicai  address.  As  an 
example,  consider  tne  following: 

E000  —  BASE  VALUE 
2AAA  --  OFFSET  VALUE 

Wnen  tnese  two  nexi decimal  values  are  added  as  described 
above,  tne  result  is: 


E0000  —  SHIFTED  BASE  VALUE 
2AAA  —  OFFSET  VALUE 
E2AAA  —  PHYSICAL  ADDRESS 


It  is  tne  segment  registers  tnat  supply  tne  base  value. 
Tnis  metnod  of  addressing  results  in  a  20-bit  address  or  a 
one  megabyte  address  space. 


Sn 

own 

in  Figure  2.2  are 

four 

segment 

regi 

s  ters . 

Eacn  are 

16 

cits  wide  and  give 

tne 

8006  access 

to  64 

Kilobytes 

of 

memory.  Assuming 

tney 

are  eacn 

set 

to  a 

di f f erent 

64K 

base,  tnis  will  g 

ive  tne  CPU  ac 

cess 

to  a 

maximum  o 

f  256E  bytes  of  memory 

at  any  instant 

of 

time . 

Because 

tne 

segment  registers 

are 

accessible  to 

tne 

software , 

tney 

can  be  programmatic 

all  y 

altered  to 

any 

value . 

Tnus  allowing  addressing  tnrcugnout  tne  entire  one  megabyte 
range . 

Waicn  segment  register  is  used  and  now  tne  offset 
value  is  obtained  depends  upon  tne  instruction  currently 
being  executed.  Tne  CS  or  code  segment  register  points  to 


tne  current  code  segment 


All  executable  instructions  are 


located  in  tnis  segment.  Therefore,  tne  address  of  tne  next 
instruction  is  computed  using  tne  CS  register  as  tne  oase 


and  tne  instruction  pointer  (IP)  as  tne  offset.  All  stact 
operations  utilize  tne  stacE  segment  (SS^  register  as  tne 
case  and  tne  stacE  pointer  (BP)  as  tne  offset.  Tee  data 
segment  (DS)  register  and  tne  extra  segment  f ES )  register 
nave  no  explicit  offset  register  associated  with  tnerr.  Tnis 
value  is  software  controlled  by  supplying  one  of  tne 
registers  in  tne  pointer  and  index  group  as  a  oart  of  tne 
instruction.  Program  variaoies  are  generally  placed  in  tne 
memory  space  accessible  by  tnese  two  segment  registers. 

3.  Execution  and  Bus  Interface  Saits 

Tne  dividing  line  in  Figure  2.2  is  used  to  indicate 
two  separate  processing  units  witnin  tne  508b:  tne  execution 
unit  (EU)  and  bus  interface  unit  (BIU).  Botn  of  tnese  units 
operate  independently. 

Tne  BIU  is  responsible  for  performing  all  dus 
operations  for  tne  EU.  It  generates  20  bit  addresses  by 
combining  tne  segment  and  offset  values  in  its  own  adder  and 
transfers  data  to  and  from  tne  EU  on  tne  ALU  data  bus.  Tne 
BIU  also  fetenes  instructions  for  tne  EU  and  stores  tnem  in 
its  six  byte  instruction  queue.  Tnis  uueue  mates  it 
possible  for  tne  BIU  to  "prefeten”  instructions  during  any 
spare  bus  cycles. 

Tne  EU  is  responsible  for  executing  ail  instructions 


and  for  transfering  data  and  addresses  to  tne  BIU. 


It  also 


maintains  tne  general  purpose  and  flags  registers.  Rpcause 
tnere  is  no  connection  from  tne  EU  to  tne  system  bus,  it  is 
isolated  from  tne  outside  world.  All  instructions  to  t>e 
executed  are  fetcned  from  tne  3IU's  instruction  queue.  In 
tne  event  tnat  tne  queue  is  empty,  tne  £TJ  simply  waits  for 
tne  BIU  to  place  an  instruction  in  tne  queue. 

Tnis  type  of  arcnitecture  allows  extensive 
overlapping  of  instruction  feton  witn  execution.  Tne  result 
is  tnat  tne  time  required  to  fetcn  instructions  becomes 
nearly  transparent  to  tne  EU  since  it  worics  on  instructions 
tnat  nave  oeen  prefetcned.  Tnis,  couplea  witn  a  5  MHZ 
clocfc,  gives  tne  Sfc5S6  tne  nign  speed  necessary  for  tne 
AEGIS  implementation. 

4 .  In  ter rupt  s  true  ture 

Tne  8086  nas  provisions  for  up  to  '£56  different 
interrupts  numbered  from  0  to  255.  Wnen  an  interrupt  occurs, 
tne  CPU  must  transfer  control  to  a  new  program  location  tnat 
contains  tne  necessary  programmed  instructions  to  service 
tnat  interrupt.  Two  values  are  necessary  to  effect  tne 
transfer:  tne  code  segment  in  wnicn  tne  interrupt  routine  is 
located  and  tne  instruction  pointer  for  tne  routine.  Tnese 
values  are  located  in  a  table  tnat  begins  at  absolute  zero 
in  memory  and  extends  to  3FF  nexidecimai.  Refer  to  Figure 
2.3.  Tne  information  needed  for  eacn  interrupt  routine 
occupies  four  consecutive  bytes  in  tnis  table.  Tne  CPU  is 


0000 : 0000H 

: 0004H 

:0008H 

:OOOCH 

: 001 OH 

:0014H 


:03FCH 

:03FFH 


k 


16  BITS 


■k 


TYPE  0  INTERRUPT 
VECTOR 
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1  INTERRUPT 

- 

VECTOR 

(SINGLE-STEP) 
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2  INTERRUPT 

- 

VECTOR 

1  (NON-MASKABLE) 

TYPE 

3  INTERRUPT 

- 

VECTOR 

(BREAK  POINT) 

TYPE 

4  INTERRUPT 

- 

VECTOR 

(OVERFLOW) 

TYPE 

5  INTERRUPT 

VECTOR 

|  ; | 

i _ : _ 

TYPE 

31  INTERRUPT 

** 

VECTOR 

TYPE 

32  INTERRUPT 

* 

VECTOR 

IP  OFFSET 


CS  ADDRESS 


DEDICATED  INTERRUPT 
VECTORS 


> 


RESERVED  INTERRUPT 
VECTORS  FOR 
COMPATIBILITY  WITH 
INTEL  PRODUCTS 


TYPE  255  INTERRUPT] 
VECTOR 


>USER  AVAILABLE 
INTERRUPT  VECTORS 


Figure  2,3  Interrupt  Vector  Table 
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supplied  vita  a  type  code  wnen  an  Interrupt  occurs.  Tnis 
value  is  automatically  multiplied  ay  four  to  determine  tne 
correct  position  in  tne  table  from  wnicn  to  obtain  tne  CS 
and  IP  values.  The  current  CS,  IP  and  flags  register  values 
are  pushed  on  tae  stacic  and  the  new  CS  and  IP  values  are 
loaded.  Tnis  completes  the  transfer  of  control.  £o tn  tne 
values  in  tne  interrupt  table  and  tae  interrupt  routines 
are  user  supplied  and  must  be  placed  in  memory  before  tne 
interrupt  can  be  permitted  to  occur. 

How  tne  processor  is  supplied  witn  tne  type  coce 
cited  above  depends  on  tne  metnoa  used  to  generate  tne 
interrupt.  These  can  be  software  or  hardware  venerated. 
Eardware  interrupts  are  subdivided  into  two  categories: 
maskable  and  non-masira  Ole .  Passable  interrupts  are  enabled 
or  disabled  by  setting  or  clearing  tne  IP  flag.  'Vnen  the 
CPU  actcnovledees  a  masKable  interrupt,  it  is  the 
responsibility  of  tne  hardware  requesting  the  interrupt  to 
place  the  type  code  on  the  bus  for  use  by  tne  CPU. 

Non-masKable  interrupts  cannot  be  disabled.  In  tae 
event  of  a  non-masica ble  interrupt,  tne  CPU  automatically 
assigns  it  a  type  code  of  2.  Thus,  a  type  code  nee  a  not  be 
supplied . 

Software  interrupts  can  be  invoiced  by  executing  the 
"INT  a"  instruction;  wnere  "a"  is  a  number  from  i)  to  255. 
In  tnis  case,  tne  type  code  is  an  explicit  part  of  tne 
They  can  also  occur  by  creating  a  fatal  error 


ins  true  tion 


as  a  result  of  program  execution,  sucn  as  a  divide  cy  zero 
or  overflow  error.  The  CPU  will  tnen  use  a  predefined  type 
cole  as  depicted  in  Figure  2.3. 

The  8096  does  not  generally  control  tne  devices  tnat 
can  cause  interrupts.  Tnis  maxes  simultaneously  occurring 
interrupts  possible  and  therefore,  all  Interrupts  are 
prioritized.  Shewn  in  Figure  2.4  is  tne  interrupt 
processing  sequence  used.  Tnis  figure'  indicates  tnat 
software  generated  interrupts  are  the  highest  priority. 
Non-masXa Die  are  tne  next  highest  and  maskable  are  the 
lowest. 

Tne  interrupt  structure  discussed  above  plays  an 
important  role  in  tne  development  of  tne  "icropoiis 
interface  design.  A  general  understanding  of  tnis  structure 
is  an  essential  prerequiste  to  an  understanding  of  botn  tne 
detailed  design  presented  in  Chapter  IV  and  the  software 
implementation  presented  in  Chapter  7. 

B.  TPS  iSBC  06/12 A 

The  ISBC  S6/12A  is  a  complete  single  board  computer.  It 
is  used  as  the  central  processing  node  of  tne  ASGIS 
multiprocessor  system.  The  board  includes  the  808b  lb-bit 
CPU,  64K  bytes  of  RAM ,  a  serial  communications  interface,  an 
INTEL  0255  that  supplies  three  programmable  parallel  I/O 
ports,  an  INTEL  9253  programmable  timer,  an  INTEL  8259A 
oriority  interrupt  controller,  MULTIBUS  interface  control 


Fignra  2.4  Qcnariliicd  Interrupt  Processing  Ssquoneo 
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logic,  and  bus  expansion  drivers  for  interface  witn  otner 
MULTI3US  interface-compatible  expansion  ooaras.  Provisions 
are  also  made  for  installation  of  up  to  16J£  bytes  of  EPROM. 
Tne  current  system  only  utilizes  £K  bytes  of  EPROM  on  eacn 
board . 

Tne  onboard  64E  bytes  of  RAM  can  be  dual-ported  in 
segments  of  16K  bytes  tnus  maxing  it  accessible  not  only  to 
tne  local  CPU  but  also  to  tne  MULTIBUS.  wnen  dual-ported, 
tne  RAM  can  be  swi tcn-and-jumper  configured  to  any  129K  byte 
segment  of  tne  one  megabyte  address  space  relative  to  tne 
MULTIBUS.  Local  addresses  are  always  fixed  between  0000H 
and  FFFFH  regardless  of  tne  MULTIBUS  address  tne  board  is 
configured  for.  Tnls  system  was  designed  for  independent 
operation  by  eacn  SBC  and  tnerefore,  no  RAM  is  dual-ported. 
To  mate  tne  RAM  inaccessible  to  tne  MULTIBUS  requires  a 
Jumper  between  E112-E114  on  eacn  SBC.  Tne  board  does  not 
come  factory  equipped  witn  tnis  jumper  and  its  existence 
must  be  verified  before  proper  operation  of  tne  system  can 
be  insured. 

Eacn  iSBC  comes  factory  configured  witn  Jumpers  between 
E103-E104  and  E105-E105.  T.nese  Jumpers  route  tne  bus  clocX 
and  constant  ciocx  signals  to  tne  MULTIBUS.  As  snown  in 
Figure  2.1,  several  SBC's  are  connected  to  tne  MULTIBUS 
interface.  Only  one  of  tnese  is  required  to  supply  tne 
clocx  signals  to  tne  MULTIBUS.  All  otner  boards  must  nave 
tne  E103-E104  and  E10P-E105  Jumpers  removed. 
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No  otner  special  configurations  are  necessary  for  tne 
1S3C  85/12A  Doards.  For  a  complete  discussion  of  user 
options  and  factory  defaults  for  tnis  Doard  see  [Ref.  7J . 

C.  MBB-80  BUBBLE  MEMOR1 

Tte  MSB-80  Eubbl-Board  is  a  memory  storage  device  tnat 
is  compatible  with  all  8-bit  and  16-bit  microprocessors 
.naving  INTEL  MULTIBUS  arcni  tecture .  The  Doard  provides 
approximately  90£  bytes  of  non-volatile  memory  as  well  as 
all  required  MULTIBUS  interface  logic. 

Interface  witn  tne  MBB-60  controller  is  accomplished 
tnrougn  memory  mapped  I/O  and  requires  sixteen  user-defined 
locations  in  the  MULTIBUS  one  megabyte  address  space.  Tnese 
addresses  correspond  to  controller  registers  that  are  used 
to  read  status,  set  board  configurations  and  perform 
read/write  operations.  Tne  current  configuration  uses 
MULTIBUS  addresses  beginning  at  S0000H.  This  requires  ’tnat 
switcn  8  in  S2  on  tne  3uoDl-Eoard  be  set  to  "on"  and  all 
otners  in  S2  oe  set  to  "off”.  All  switches  in  Si  must  be 
set  to  "off”. 

Tne  bubble  memory  appears  to  tne  system  as  a  simple  90i 
byte  disic  drive.  All  read/write  operations  to  this  device 
are  accomplished  in  tne  same  manner  used  for  any  other  list 
system  and  require  no  special  user  invoiced  functions.  Its 
primary  use  in  tne  system  as  depicted  in  Figure  2.1  is  as  a 
non-volatile  storage  medium  from  which  to  load  the  operating 
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system  into  RAM.  For  a  complete  discussion  of  tne  vBB-S0 
BuDbl-Eoard  impleme ta tion  to  tne  system  see  (.Ref.  4j  . 

D.  REMEX  DATA  WAREHOUSE 

1 .  Su  bcomponents  and  S t o r^gg  CiD&clty, 

Tne  REMEX  Data  Warehouse  Is  a  mass  storage  unit 
containing  two  floppy  dls£  drives  (single  or  double-sided, 
single  or  double  density)  and  a  Winchester  technology  fixed 
disn  drive.  Additionally,  an  MC6800  microprocessor  coupled 
with  onboard  firmware  is  tne  mechanism  used  to  service  all 
drives . 

The  fixed  dislc  is  a  14  incn  enclosed  disic  system 
consisting  of  two  recording  surfaces.  Each  surface  has  two 
reccording  neads.  Eacn  nead  can  access  210  usable  tracKS 
and  eacn  tracK  contains  39  512-byte  sectors.  Tnis  gives 
each  nead  access  to  approximately  4  megabytes  of  storage  and 
gives  tne  disK  a  total  storage  capacity  of  16  megabytes. 

Tne  two  floppy  drives  are  swi tcn-selectabie  to 
nandle  eitner  single  or  double  density.  In  tnis 
implementation,  single  density,  standard  IBM  FM  encoding  is 
employed . 

2.  MULTI  BUS  Interface 

The  REMEX  Data  Warehouse  is  interfaced  to  tne 
MULTIBUS  via  tne  MULTIBUS  Interface  Card  assembly  supplied 
with  the  unit.  Tnis  assembly  contains  all  tne  necessary 
control,  buffering  and  MULTIBUS  interface  locic  reauired  to 
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Interface  witn  tne  nost  system.  Tne  nost  communicates  v*itn 
tne  assembly  using  programmed.  I/O.  Communications  from  tne 
assembly  to  tne  nost  is  via  DMA .  Tne  interface  acts  as  a 
bus  master  in  the  DMA  mode  and  as  a  bus  slave  in  the 
programmed  I/O  mole. 

The  controller  requires  4  I/O  port  addresses  for  tne 
nost  system  communications.  These  are  used  to  obtain  status 
and  pass  command  information.  Currently,  addresses  70,  71, 
72  and  73  nexidecimal  are  used  but  these  can  be  altered  by 
cnanging  tne  appropriate  switches  on  tne  MULTIBUS  Interface 
Card  assembly. 

Tne  system  configuration  in  tnls  implementation 
utilizes  tne  REM El  Data  Warehouse  as  a  program  storage 
media.  However,  as  aliuaed  to  in  tne  introduction,  it  is 
envisioned  that  tnis  nard  diss  drive  will  be  used  for 
storage  of  tracK  data  in  the  SPY-1A  radar  emulation  effort. 
For  further  information  on  tne  REMEX  consult  [Ref.  8J  . 


So  1CS-S0  CHASSIS 

The  iCS-80  industrial  chassis  is  MUITIBUS-r ompa title  anc. 
supports  a  modular  microcomputer  development  system.  It 
consists  of  four  four-slot  iSBC  004/614  Cardcages,  four 
fans,  a  power  supply  and  control  panel.  Tne  control  panel 
contains  an  on/off/locK  xey  switch,  reset  and  Interrupt 
pushbuttons  and  various  LED's. 
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Any  combination  of  MULTIBUS-compa  ti  ble  piue  in  boards 
can  be  installed.  A  maximum  of  four  boards  can  be  oiacei  in 
tfie  iSBC  604  Cardcaee.  Additional  iSBC  614  Cardca^es  can  be 
added  to  tne  caassis  tnrougn  an  expansion  interface  supplied 
vitn  tne  system.  Tne  laboratory  system  utilized  in  support 
of  tnis  tnesis  consists  of  a  single  iSBC  604  Carinate  and 
tnree  iSBC  614  Cardcages .  Tnis  gives  a  total  capacity  of  16 
board  slots.  These  cases  provide  for  both  INTEL  MULTIBUS 
master  and  slave  boards.  From  tne  front  panel,  tne  slots 
are  numbered  1  to  15  from  left  to  rignt.  All  odd-numcered 
slots  are  configured  for  master  boards  and  all  even-numbered 
slots  are  configured  for  slave  boards. 

Because  more  than  one  bus  master  can  be  placed  in  tne 
cnassis,  a  priority  resolution  scheme  is  required  to  resolve 
MULTIBUS  access  contention.  Tnis  scnene  can  be  operated  in 
either  the  serial  or  parallel  mode.  In  the  system  of  Fieure 
2.1,  the  cnassis  is  operated  in  tne  parallel  mode  with  an 
external  random  priority  network  for  bus  access  resolution. 
For  more  information  see  I3ef.  9]  . 

F.  COMMON  MEMORY 

The  common  memory  depicted  in  Figure  2.1  is  a  simple  I52K 
byte,  MULTI BUS-compati tie  RAM  board.  It  can  be  svitcn 
configured  to  any  address  In  the  one  megabyte  Multibus 
address  space.  In  its  current  configuration,  it  occupies 


addresses  E0 feJBfcJH  throuen  E7FFFH.  The  board  is  expanse  Die  to 
64E  bytes  of  RAM. 

Recall  from  tne  discussion  on  tne  iSBC  86/12A  that  the 
RAM  of  all  SBC's  in  the  system  is  jumper  configured  to  be 
accessible  only  to  tne  local  CPU.  Tnis  means  tnat  neitner 
tte  bubble  controller  nor  tne  R3MEX  controller  can 
communicate  directly  v*itn  any  iSBC.  Tnerefore,  ail 
read/write  operations  witn  tnese  two  devices  is  accomplisned 
via  tne  common  memory.  Tne  tecnnique  used  to  coordinate 
tnis  effort  is  a  software  one  and  is  discussed  in  detail  in 
tne  next  chapter. 

G.  MICROPOLI S  DISK  DRIVE 

Tne  Micropolis  dist  system  (not  depicted  in  Figure  2.1) 
is  an  eignt  incn  fixed  diss  drive  vi tn  an  inteerai 
controller  board.  It  consists  of  five  data  surfaces  with 
530  tracts  per  surface.  Eacn  tract  contains  twenty-four  512 
byte  sectors.  Tnis  gives  a  35.6  megabyte  formatted  storage 
capacity. 

Tne  controller  board  consists  of  a  Z-90  microprocessor, 
firmware  in  PROM,  and  tne  necessary  control  lo?ic  and 
buffers  to  provide  a  variety  of  features.  Tne  features 
employed  and  tne  details  of  tne  Micropolis  interface 
accomplisned  as  a  result  of  tnis  tnesis  wort  are  presented 


III.  SYSTEM  SOFTWARE 


The  Micropolls  interfacing  woric  consisted  of  twc  peases: 
tne  nardware  interface  design  and  tne  software  interface. 
Before  eitner  could  be  accompl i shed ,  it  was  necessary  to 
understand  ootn  tne  existing  system  architecture  and 
software.  Tne  last  cnapter  addressed  tnat  areni tecture . 
Therefore,  tnis  cnapter  presents  tne  details  of  tne  AEGIS 
developmental  system  software. 

A.  CP/M-B6  OPERATING  SYSTEM 
1 .  Gene ral  Discussion 

CP/M -86  is  tne  operating  system  used  in  tne  AEGIS 
software  development  system.  It  is  a  c  ommerc ia 1 ly 
distributed  operating  system  developed  by  Digital  Researcn 
for  use  with  a  single  INTEL  8086  based  microcomputer.  It  is 
supplied  on  two  single  sided,  single  density,  eight  inen 
floppy  disss.  Included  on  tnese  diskettes  is  tne  operation 
system  (CPM.SYS),  an  8086  assembler  (ASM86.CMD),  tne  Dynamic 
Macnine  Language  Debugger  (DDT86.CMD),  an  editor  (ED.CMD) 
and  various  reconfiguration  and  file  handling  utilities. 

The  CP/M— 86  operating  system  can  be  user  configured 
to  fit  any  hardware  environment.  As  it  is  snipped,  tne  file 
CPM.SYS  is  configured  for  32K  bytes  of  RAM,  a  Keyboard,  a 
screen  device,  an  INTEL  iSBC  204  Floppy  Tistc  Controller  and 
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a  9622  baud  serially  interfaced  printer.  Tne  details  of  tr.e 
CP/M  structure  and  tne  reconfiguration  procedures  are 
discussed  below.  For  information  on  tne  entire  CP/M-B6 
environment  and  capabilities  see  l Ref .  ie-12] . 

2 •  S  t  ructure 

Tne  CP/M  operating  system  can  te  viewed  as  occupying 
tnree  distinct  levels  of  abstraction.  Refer  to  Figure  3.1. 
Applications  programs  invoice  system  functions  tnrougn  tne 
Basic  DisK  Operating  System  (3L0S)  module  and  do  not 
communicate  witn  any  otner  module.  Tde  BBOS  performs 
services  requested  by  applications  programs  and  all  general 
file  and  distc  management  functions.  All  Hardware  dependent 
functions  required  oy  tne  BBOS  are  requested  tnrougn  tne 
Basic  Input/Output  System  (BIOS)  module.  Tne  BIOS  module  is 
tne  only  one  tnat  communicates  witn  tne  nariware.  Tne 
Console  Command  Processor  (CCP)  snown  Is  used  to  process 
console  commands  and  provides  tne  user  interface  in  tne 
absence  of  an  applications  program. 

Since  all  nardware  dependent  functions  are  located 
In  tne  BIOS  module,  tne  system  nardware  configuration  must 
be  reflected  nere.  A  skeletal  3I0S  (BI0S.A66)  is  provided 
In  source  cole  format  for  tnis  purpose.  Tne  CCP  and  BDOS 
modules  are  provided  as  a  single  nex  file  (CPM.H86).  Tnis 
file  requires  no  modification  out  is  necessary  for  tne 
adaption/reconfiguration  process  described  in  Section  4 
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3 .  Bootstrapping  CP/M 

Loading  CP/M  into  RAM  from  a  standard  single  density 
floppy  disic  requires  a  two  step  procedure.  Tne  coot  ROv. 
wnicn  receives  control  wnen  tne  system  reset  outton  is 
depressed,  must  load  a  loaner  program  from  tne  reserved 
system  traces  on  tne  lisK  into  RAM  and  pass  control  to  it. 

Tne  loader  is  tne.n  responsioie  for  loading  tne  operating 
system  from  the  disK  into  RAM  and  passing  control  to  it. 

Tnis  two  step  procedure  is  required  cecause  tne  operating 
system  is  too  large  to  fit  on  tne  reserved  system  trades. 

Tnerefore,  adaption  of  CP/M  to  a  system  otner  tnan  tnat  for 
wnicn  it  is  commercially  listricutel  reauires  modification 
to  tnese  three  software  components. 

4.  Gene ral  Adaption  Prp;°durss 

Tne  major  effort  in  tne  adaption  process  is  in  tne 

deveiODment  of  tne  nardware  drivers  for  tne  BICS  module. 

The  BIOS  can  be  classified  as  performing  three  types  cf  I 

functions:  hardware  ini  tiaiisat ion /remi  t  ial  izati on  , 

character  I/O  and  disK  I/O.  Tne  functions  are  contained  in 
21  subroutines  witnin  tne  module.  The  BIOS  accesses  tne  > 

subroutines  tnrougn  a  tacie  tnat  nas  individual  jump  vectors 
to  tne  entry  point  of  eacn  subroutine.  Tnis  is  shown  in  the 
operating  system  memory  map  in  Figure  3.2.  Tne  actions  tnat  > 

must  taie  place  upon  entry  to  eacn  of  tnese  subroutines  is 
detailed  in  [Ref  10:  pp.  S0-65J .  A  cnange  in  the  hardware 
environment  is  accounted  for  oy  cnanging  tne  code  witnin 
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Fignre  3.2  Operating  System  Memory  Map 


tne  dl  subroutines  and  meeting  tne  entry  and  exit  conditions 
as  specified  in  tnis  reference.  Recall  tnat  a  sieietai 
BIOS.Aeb  file  is  provided  as  a  model  for  tnis  purpose. 

Tne  Diss  Parameter  Tables  snov»n  In  tne  previous 
figure  are  used  by  tne  BIOS  to  oDtaln  tne  cr.aracterisctlcs 
of  eacn  device.  Tnese  taDles  exist  in  a  file  separate  from 
tne  BIOS  and  are  Included  durin  assembly  tnrougn  tne  use  of 
tne  INCLUDE  <f i ienane>. <f i le type>  instruction  at  tne  case 
of  tne  BIOS.  Tne  source  code  for  tne  tables  as  i»eil  as  tne 
Uninitialized  Scratcn  Ram  Area,  can  be  automatically 
generated  by  tne  GENDSF.CMD  utility.  Tnis  requires  a 
<f  llename>  .DEF  file  as  input  and  produces  a  <"f  i  lename^ .  L  IB 
file  as  output.  Tne  contents  of  <fllename'.EEF  are  simple, 
one  line  disic  definition  statements.  Tne  format  for  tne 
statements  and  tnelr  meaning  is  describee  in  detail  in  [Her 
10:  pp .72-80] . 

Once  tne  BIOS  file  is  modified  and  tne  DisK 
Parameter  Table  file  created,  tney  are  assembled  using 
ASM8e.CMD.  Tne  resulting  nex  file  is  concatenated  witft 
CPM.H86  using  PIP.CPD  and  a  command  file  for  tnis  single  nex 
file  is  venerated  usin?  G5NCMD.C*D.  Finally,  tne  new 
operating  system  tnat  results  is  placPd  or  tne  disK  as 
CP*. SYS  usine  PIP.CPD.  Tr.e  process  descriDea  aDove  is 
depicted  in  Figure  3.3.  Note  tnat  tne  S080  model  option  of 
C?/*-86  is  snovn  in  tnis  example. 


1.  USER.DSF  ==>  GENDEF  .  CMD  ==>  USER. LIB 

2.  USERBIOS  .  AB6  ==>  ASM66.CMD  ==>  USERBI OS  . KBb 

3.  CPM.HBS  +  USERBIOS. H8b  ==>  PIP.CMD 

==>  CPMSrS.HBb 

4.  CPMSTS.HB6  ==>  GEN  CMD.  CMD  ==>  CPMSYS.CMD 

(  8080  code  [a40j  ) 

5.  CPMSYS.CMD  ==>  PIP.CKD  ==>  CPM.STS 

(RENAME  ON  NEW  DISK) 

Figure  3.3  Steps  for  Creating  a  New  CPM.SYS 

Two  software  components  remain  to  oe  adapted:  me 
loader  program  and  tne  Doot  ROM  program.  Tne  loader  program 
is  a  simplified  version  of  CP/M-Bb  and  contains  only  encugn 
file  processing  capability  to  read  tne  CPM.SYS  file  from 
diSK  to  memory.  Three  files  are  provided  for  the 
development  of  a  loader:  LDCPM.HBb',  LDBD0S.E96  and  a 

skeletal  LDBI0S.A8S  source  file.  The  IDBI0S.AB6  file 
reflects  tne  hardware  to  be  used  in  tne  loading  operation 
and  does  not  necessarily  reflect  tne  total  nardware.  Tnis 
file  contains  tne  same  21  entry  points  as  tne  BIOS.ABb  file 
with  tne  same  entry  and  exit  conditions  and  requires  tne 
same  type  of  Dlst  Parameter  Tables  and  scratcn  pan  area. 
The  generation  of  the  IOADER.CMD  file  is  depicted  in  Figure 
3.4.  Tne  resulting  loader  must  be  small  enough  to  fit 
entirely  on  tne  reserved  system  tracts. 
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1.  UHLDBIOS .  A86  ==>  ASM86.CMD  ==>  URLDBIOS  .F.8b 


2.  LDCPM.H86  +  LDEDOS  .  H86  +  UP.LDEI  OS  .H86==>P  IP  .  CVE 

==>  LOADER. H8b 

3.  LOADER. H86  ==>  GENCMD.  CMD  ==>  LOADER. C.^D 


4.  LOADER.CMD  ==>  LDCOPY.CMD  ==>  LOADER .C  ^D 
(LOAD  ON  SYSTEM  TRACKS ) 


Figure  3.4  Steps  for  Creatine  LOADER.CMD 


Tne  development  of  a  boot  ROM  program  depends  only 
on  tne  pnysical  device  used  to  load  tne  operating  system. 
Its  single  purpose  is  to  load  tne  program  located  on  tne 
system  tracss  into  RAM  and  pass  control  to  it.  A  ROM. Abb 
file  is  provided  mat  details  tne  too t  ROM  for  an  INTEL  iSBC 
204  Floppy  DisK  Controller  and  serves  as  an  excellent 
example.  However,  Decause  tne  metnoi  used  will  vary  widely 
from  device  to  device,  no  files  are  provided  tnat  simplify 
tnls  development. 


B.  AEGIS  IMPLEMENTATION  OF  CP/M-86 
l  •  Boot  iHl 

In  tne  AEGIS  implementation  of  CP/v-8b  used  during 
tne  initial  development  wors  of  tnis  tnesis,  two  boot  ROM 
programs  and  tnelr  associated  loader  programs  were 
available.  iotn  are  located  at  tne  oase  of  tne  INTEL  9b7 
monitor  in  tne  SK  byte  EFROM  of  tne  iSBC  86/12A.  Tne  first 


allows  toe  system  to  oe  booted  from  eitner  toe  single  or 
double  density  INTEL  MDS  floppy  distt  drive  Dy  executing  tne 
command  "GFFD4:0"  from  tne  monitor.  Tne  second  will  Doot 
tne  system  from  tne  bubble  memory  by  executing  "GiFD4:4" 
from  tne  monitor. 

2.  A  Modification  to  tne  BIOS 

Recall  from  Section  A-4  above  tnat  any  Hardware 
cnange  witnin  tne  system  requires  some  of  tne  'dl  BIOS 
subroutines  to  oe  rewritten.  A  change  occurs  r.ot  only  by 
tne  addition  of  Hardware  but  also  wnen  a  component  is 
removed  eitner  because  it  nas  failed  and  tnere  is  no 
replacement  or  it  is  no  longer  needed.  In  a  Hardware 
environment  as  flexible  as  tnat  required  by  the  AEGIS 
project,  tne  standard  reconfiguration  process  becomes  an 
extremely  time-consumi ne  tasK. 

To  alleviate  tnis  problem,  a  metnoa  was  developed  as 
a  part  of  Almquist  and  Stevens'  wors  in  wnicn  only  miner 
cnanges  to  tne  BIOS  were  required  to  alter  tne  Hardware 
configuration,  rfitn  tnis  tecr.nique,  all  of  tne  BIOS  device¬ 
dependent  subroutines  are  extracted  into  a  separate  file  for 
eacn  unique  device.  THe  specific  device-dependent  routines 
are:  INIT,  SELDSK,  HOME,  SETTRX,  SETSEC,  READ  and  WRIT'S. 
Tne  pnysical  location  of  tne  entry  points  to  tne  routines  is 
obtained  from  an  ordered  label  table  file  and  tne  BIOS 
accesses  tne  routines  tnrouen  an  indexed  CALL  instruction. 


How  tnis  tecnnique  worKs  is  snown  in  Figure  3.5.  In 
tnis  example,  a  call  is  made  to  tne  BIOS  to  READ  DEVICE  42. 
The  BIOS  malces  a  Jump  to  tne  READ  entry  point.  However, 
instead  of  doing  an  actual  READ  at  tnis  point,  tne 
device  number  is  determined  and  a  call  to  tne  address  found 
in  tne  second  position  of  RDTBL  is  made.  Tne  code  tnat 
performs  tne  READ  function  for  DEVICE  42  is  then  executed. 

Tne  code  for  tne  seven  device-dependent  functions 
can  be  written  and  debugged  independently  of  any  otr.er  code. 
To  add  the  device  to  the  system  reauires  one  INCLUDE 
<f ilename>.<f iletype>  statement  be  added  to  the  EIOS  file, 
tne  corresponding  seven  entry  points  be  added  to  tne  label 
table  file  and  the  DISK  Parameter  Table  be  updated.  The 
steps  for  creating  tne  CPI. STS  file  remain  unchanged  from 
those  presented  in  Section  A-4.  To  remove  a  device,  the 
process  is  reversed.  Clearly  tnis  method  allows  the 
hardware  dependent  code  (and  hence,  the  nareware  itself)  to 
be  more  easily  integrated  in  or  removed  from  tne  operating 
system  tnan  tne  standard  BIOS  structure  did. 

C.  MULTIUSER  STSTSM 

CP/M  is  not  a  multiuser  or  mul ti tassing  operating 
system.  Another  major  development  of  tne  Almquist  am 
Stevens'  research  wors  was  a  method  by  wnicn  each  single 
board  computer  in  the  system  could  operate  independently  of 
tne  otners  under  C?/v  and  still  nave  access  to  tne  snared 


a  call  la  made  to  the  BIOS  to  READ  derice  #2 


BIOS 

file 


LABEL 

TABLE 

file 


DEVICE  #ll 
file  ) 

DEVICE  #2 
file  J 


USES.  LIB 
file 


jap  I NIT 

1  ">jap  READ  »  BIOS  jump  rector 

iin  SBTIOBF  _ 

INIT:  determine  derice  # 

call  to  INTBL  effect  derice  #] 
ret 

BEAD:  determine  derice  # 

_ _ c/ill  RDTBL  [offset  derice  J0 

ret  ^ 

-  (remaining  19  subroutines ) 

INCLUDE  LABEL  TABLE 
INCLUDE  DEVICE  #1 
INCLUDE  DEVICE  #2 

l  (an  inclnde  statement  for  remaining 
derices) 

INCLUDE  USER. LIB  (the  disk  parameter  tables  k 

initialized  scratch  RAM) 

INTBL  dw  INIT1  (replaced  with  physical  address 
of  INITl  at  assembly  time) 

dw  INIT2 

'  (a  "dw"  statement  for  remaining 
derices) 

RDTBL  dw  READ1 
- >  dw  HEAD2 


'  eode  for  seren  derice  specific 

functions  of  derice  #1 _ 

IN1T2:  code  to  initialise  derice  #2 
ret 

READ2:  code  to  read  derice  #2 

•  ret 

• 

remaining  derice  dependent  files 
Disk  Parameter  Tables 

Unitialized  Scratch  RAM 


Figure  3,5  Path  of  a  BIOS  Function  Call 
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resources  (tne  dis£  drives  ana  tne  bubble  memory)  or  me 
system.  Tne  multiuser  system  tnat  resulted  can  be  oroser. 
down  into  tnree  functional  categories:  syncnroniza tion  of 
common  memory  usaee  ,  boot  loading  all  SBC's  and  write 
protection  of  a  user's  allocated  disic  space. 

1 •  Synchronization 

As  stated  in  Cnapter  II,  tne  RAM  on  eacn  iSBC  85/1'dA 
is  not  accessible  via  tne  MULTIBUS  and  therefore,  all  lisic 
and  buooie  memory  read/write  operations  must  be  performed 
through  a  buffer  in  tne  common  memory.  This  requires  a 
synchronization  scneme  tnat  will  ensure  a  single  computer 
can  successfully  complete  a  read/write  operation  before 
another  computer  is  permitted  access. 

A  ti cffet /server  technique  had  been  developed  for 
this  purpose.  This  required  a  CALL  REQUEST  instruction  to 
be  placed  prior  to  all  common  memory  reac/write  ooerations 
and  a  CALL  RELEASE  instruction  be  placed  after  tne 
read/write  operation.  Tne  CALL  REQUEST  accesses  tne 
"ticket"  variable  in  common  memory  for  a  ticket  number  and 
waits  until  tnat  number  is  equal  to  tne  "server"  variable,  a 
number  also  found  in  common  memory.  The  read/write 
operation  is  then  performed  and  tne  CALL  RELEASE  advances 
tne  server  number,  thus  releasing  common  memory  to  tne  next 
tictcet  holder. 

The  code  for  these  subroutines  is  contained  in  tne 
file  SYNC.A86.  It  is  included  in  tne  BIOS  through  an 


INCLUDE  statement  place!  immediately  following  tee  last 
INCLUDE  statement  for  tne  device  files. 

2.  -Boot  Loading  All  IS 

Because  tne  common  memory  variables  must  be 
initialized  only  once,  two  versions  of  tne  CP/M-&6  operating 
system  nad  been  developed.  Tne  file  CPMMAST.CMD  is  tne 
master  version  tnat  performs  tne  common  memory 
initialization  wdile  CPMSLAVE.CMD  is  tne  slave  version  tnat 
does  not. 

The  r  ster  board  is  boot  loaded  with  CFMMAST.CMD 
from  tne  bubble  memory.  Once  this  board  is  operational,  the 
command  "LD300T"  is  executed  and  results  in  a  copy  of 
J300T.CMD  being  placed  in  the  common  memory.  Next,  tne 
command  "  LDCPM"  is  executed.  Tnis  places  a  copy  of 
CPMSLAVE. CMD  into  common  memory.  From  tne  monitor  of  tne 
remaining  SBC's,  tne  command  "GE000:0400"  is  executed.  This 
causes  tne  CPU  to  execute  tne  code  of  BOOT.CVD  wnlcn,  m 
turn,  moves  a  copy  of  CPMSLAVE.CMD  into  local  RAM  and 
transfers  control  to  it. 

3.  D1 sr  rfri^e  Protection 

Disic  write  protection  was  achieved  tnrougn  a  log-in 
procedure.  A  log  table  is  initialized  in  common  memory  as  a 
part  of  tne  master  version  initialization.  Tne  number  of 
entries  in  tne  tame  correspond  to  tne  number  of  disff  drives 
or  logical  devices  in  tne  system.  As  part  of  booting  tne 


operating  system,  the  user  is  queried  for  tne  console  number 
feeing  used  (located  on  tne  front  panel  of  eacn  console)  and 
tiie  disic  drive  to  log  on  to.  Tiie  log  taole  is  checked  after 
tnis  entry  to  determine  if  tne  desired  drive  is  free.  If  it 
is,  tne  user  console  number  is  placed  at  tnat  drive's 
position  in  tne  log  table.  If  it  is  not,  tne  user  is  asiced 
to  re-select  a  drive. 

Tne  user  console  number  is  also  stored  in  tne  local 
variable  USER.  Write  protection  is  accomplisnea  by 
comparing  tne  value  in  USSR  to  tne  currently  selected 
logical  disK  number  and  aborting  any  write  operation  if  tney 
are  not  tne  same. 

It  was  considered  desirable  to  be  atie  to  cnange 
lisle  drives  without  tne  need  to  reboot  tne  beard.  A  log  out 
procedure  was  written  for  tnis  purpose.  Vfnen  tne  command 
"LOGOUT"  is  executed,  tne  USER  variable  is  reset,  tne  log 
table  is  updated  and  tne  user  is  again  requested  to  enter  a 
disfc  drive  to  log  on  to. 

Tne  final  common  memory  utilization  employed  as  a 
result  of  the  multiuser  system  developed  by  Almquist  and 
Stevens  is  depicted  in  figure  3.6. 

D.  MCORTEX 

MCORTSX  is  tne  operating  system  tnat  was  developed  for 
the  S PI-1  A  radar  emulation.  In  tne  final  version  presented 
by  Klinefelter  [.Ref .  2J  ,  ^CORTEX  was  set  up  to  nar.nie  ten 


virtual  processors  for  eacn  real  processor.  The  data  oase 
upon  wnicn  all  scheduling  decisions  are  cased  is  tne  Virtual 
Processor  Map  (7 PM)  located  in  common  memory.  Tne  VPM 
contains  tne  control  and  status  information  on  eacn  virtual 
processor  required  by  MC0RT2X  to  coordinate  tne  concurrent 
processing . 

A 11  processes  managed  by  MC0RT2X  can  oe  in  one  of  tnree 
states:  running  on  a  real  processor,  waiting  for  some  event 
to  occur  or  ready  to  run  (waiting  to  gain  access  to  tne  real 
processor).  If  a  process  is  in  tne  waiting  state,  it  coulc 
be  waiting  for  an  event  to  occur  on  a  real  processor  otner 
tnan  tne  one  to  wnicn  it  was  assigned.  An  eventcount  table 
is  maintained  in  common  memory  for  notification  purposes. 
Vnenever  a  real  processor  completes  an  event,  tne  taDle  is 
updated  and  a  message  is  broadcast  to  ail  otner  real 
processors  in  tne  system  tnat  seme  event  nas  just  been 
completed.  2acn  real  processor  tnen  cnecics  tne  eventcount 
table  to  determine  if  tne  event  pertains  to  any  of  its 
virtual  processors  and  reacts  accordingly. 

Tne  technique  used  for  broadcasting  an  event  employed  a 
type  of  global  interrupt  issued  on  tne  MUITIE0S.  Because 
tne  development  of  tne  Micropolis  interface  altered  tne 
technique  somewnat,  tne  details  of  it  will  oe  presented  in 


the  next  chapter. 


17.  MICROPOLIS  HARDWARE  INTERFACE  DEVELOPMENT 


A.  OVERVIEW 

The  Micropolis  disi  system  offers  an  interface  structure 
trat  is  suitable  for  use  with  either  programmed  I/O  or  DMA 
data  transfers.  In  an  effort  to  maie  maxinun  use  of 
available  system  nardware,  tne  programmed  I/O  mode  was  used 
in  this  implementation.  This  enabled  an  interface  to  be 
designed  witn  tne  INTEL  8255  programmable  parallel  I/O  cnip 
located  on  tne  iSBC  86/12A. 

Recall  from  Cnapter  II  tnat  ail  RAM  on  each  SEC  is  not 
accessible  through  tne  MULTIBUS .  Therefore,  all  control, 
status,  and  data  information  intended  for  the  Micropolis 
distc  system  nad  to  ce  passed  tnrougn  tne  common  memory. 
Because  tne  disK  system  was  interfaced  into  a  single  SBC's 
825b  port,  tne  hiss  controller  nad  no  method  of 
communicating  directly  with  the  common  memory.  To  overcome 
this  problem,  a  timer-controlled  interrupt  was  designed. 
This  allowed  the  8086  CPU  to  be  interrupted  at  periodic 
intervals  and  effect  any  necessary  communications  between 
common  memory  and  tne  controller.  The  distinct  advantage  of 
this  tecnnique  is  tnat  tne  single  board  computer  used  for 
the  interfacing  can  still  be  used  as  an  independently 
operating  computer  with  all  disic  operations  being 
transparent  to  the  user. 


In  tne  following  paragraphs ,  tne  detail?  of  tr.e 
interface  lesion  and  tne  timer-control led  interrupt  design 
are  presented.  Tnis  discussion  is  United  to  tne 
development  of  tne  designs  and  only  tnose  low-ievel  routines 
needed  to  test  tneir  validity.  The  software  implementation 
into  tne  AEGIS  system  will  be  discussed  ir  Chapter  V. 

£.  MICROPOLlS  DISK  SYSTEM 

Chapter  II  stated  tne  general  characteristics  of  tne 
Micropolis  disit  system.  Tnis  section  expands  on  tnat  sv 
presenting  tne  technical  interface  requirements  as  well  as 
tne  general  operation  of  tne  disit  controller.  For  more 
information  on  the  Micropolis  diss  unit  see  [Ref.  13 J  . 

1  •  Interface  Signals. 

Interface  to  tne  Micropolis  aisft  drive  is  made 
tnrougn  a  34  pin  edge  connector  located  on  tne  controller 
printed  circuit  board.  Tne  interface  is  structured  around 
an  3-bit  bi-directional  data  bus  and  9  control  lines.  For 
ease  of  reference,  tne  3  data  lines  will  hereafter  ce 
referred  to  as  BUS0-BUS7  with  tne  3US0  line  corresponding  to 
tne  least  significant  bit  and  tne  BUS7  line  tne  most 
significant  bit.  The  control  line  names  and  a  complete 
description  of  eacn  is  contained  in  tne  list  below.  Note 


tnat  in  this  list,  reference  is  made  to  tne  logical 
condition  of  tne  signal  (true  =  1  and  false  =  0)  ratner  tnan 
tne  signal's  electrical  polarity. 
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utilizes 

one 

di  sic 

uni  t 

and 

it  is 

jumper  configured 

to 

respond  to  address  0.  Tnus ,  SEL  snould  always  be  0. 

b.  ENABLE:  This  signal  is  normally  be id  true.  If 
made  false  (2  microseconds  minimum),  a  reset  is  applied  to 
tne  controller  logic.  Tne  controller  will  indicate  tnat  it 
is  busy  (tnrougn  tne  CBUSY  signal  described  below), 
important  flags  and  registers  are  tnen  initialized  ana 
approximately  one  second  later,  tne  controller  will  indicate 
tnat  it  is  ready  to  accept  commands  frcm  tne  dost  computer. 

c.  WSTR:  Tne  write  strobe  is  a  signal  from  tne 
dost  computer  to  tne  controller  tnat  tne  information  on 
BUS0-3US?  is  valid.  Tne  nost  pulses  tne  write  stroce  line 
wnile  driving  tne  bus.  On  tne  trailing  edge  of  WSTR,  tne 
controller  will  copy  tne  contents  of  tne  bus  into  a  buffer. 
Tne  byte  is  tnen  interpreted  by  tne  controller  as  eitner 
control  (DATA  =  0)  or  data  (DATA  =  1). 

d.  RSTR:  Tne  read  strobe  is  a  signal  used  by  tne 
dost  to  indicate  to  tne  controller  tnat  it  is  ready  to  input 
a  byte  of  information.  When  tne  nost  drives  RSTR  true,  tne 
controller  drives  tne  bus  wi tn  tne  contents  of  eitner  its 
data  buffer  (DATA  =  1)  or  its  status  register  (DATA  =  0 1 . 


Tne  controller  will  drive  tne  bus  as  long  as  RSTR  is  true 


Thus ,  oa^e  tne  nost  Has  copied  the  bus,  RSTR  must  be  rale 
false  aeain  to  regain  access  to  tne  bus. 

s.  DATA:  Tnis  signal  selects  eitner  tne  controller 
lata  or  control  ports  as  lescrioel  above. 

f.  CBUSY:  Tne  controller  will  set  CBUSY  to  0 
whenever  tne  host  issues  it  a  command.  CBUSY  is  returnel  to 
1  by  tne  controller  when  tne  command  is  terminated. 

e.  ATTN:  Tne  attention  signal  is  set  true  by  tne 
controller  at  tne  end  of  eacn  command.  The  nost  responds  by 
reading  tne  Termination  Status  byte  from  tne  data  port. 
ATTN  is  set  false  by  the  controller  only  after  the 
Termination  Status  byte  nas  been  read. 

n.  DP.BO:  Data  request  is  used  to  request  tne 
transfer  of  data  to/from  tne  controller.  Tne  direction  of 
tne  transfer  is  controlled  by  tne  OUT  signal.  Data  can  only 
be  transferred  by  tne  host  in  response  to  DPSO. 

i.  OUT:  Tnis  Indicates  the  direction  of  lata 
transfer.  If  OUT  =  1,  tne  transfer  is  from  controller  to 
host  (a  READ  operation).  If  OUT  =  0,  it  is  from  host  to 
controller  (a  WRITE  operation). 

All  bus  lines  and  control  signals  (except  C3U5Y)  are 
active  low  at  the  interface  connector.  Tne  physical 
interface  to  the  8  controller  bus  lines  must  be  tnreurn  an 
INTEL  8226  inverting  bi-directional  driver/receiver  er  its 
equivalent  provided  by  tne  nost  system.  Tne  nost  must  also 


provide  IK  onm  pullup  resistors  on  each  of  tne  bus  lines 


Interface  to  tne  SEL,  ENABLE,  DATA,  VST?.,  and  RSTR 
control  lines  is  tnrougn  a  7439  inverting  driver  or  its 
equivalent.  Tne  ATTN,  CBUSK,  DREG,  and  OUT  control  signals 
are  used  in  a  DMA  interface  environment.  If  operation  is  in 
tne  programmed  I/C  mole,  tne  DPA  signals  do  not  nave  to  be 
pnysically  connected.  Tne  logical  condition  of  tnese 
signals  can  be  obtained  by  reading  tne  status  register  (see 
RSTR  above). 

2.  General  Operation 

Command  execution  is  started  in  tne  controller  board 
by  writing  a  command  byte  to  tne  command  port,  followed  by 
writing  six  parameter  bytes  and  a  GO  byte  to  tne  lata  port. 
Tne  command  byte  identifies  tne  type  of  command  wnile  tne 
parameter  bytes  contain  tne  control  and  addressing 
information  necessary  to  execute  it.  Tne  GO  byte  actually 
starts  tne  command  execution  and  can  contain  any  value. 
After  tne  controller  nas  executed  tne  command,  a  Termination 
Status  byte  is  written  to  its  data  port  and  ATTN  is  set. 
'rfnen  tne  nost  reads  tnis  byte,  tne  command  execution  is 
complete  and  tne  controller  can  accept  a  new  command. 

3 .  Command^  a nd  Error  Recovery 

Tnree  types  of  commands  can  be  executed:  non-data 
transfer,  transfers  from  nost  to  controller  (write),  and 
transfers  from  controller  to  nost  (read).  Tne  non-data 
transfer  commands  are  used  for  disc  maintenance.  Tnis  set 
of  commands  permit,  among  otner  t.nings,  tne  initialization 
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and/or  verification  of  ail  580  tracts  associated  with  one  of 
tne  five  drive  neads. 

Tne  read  and  write  commands  nave  tnree  major 
options:  operation  on  an  entire  tract  or  a  single  sector, 
programmed  I/O  mode  or  DMA  mode,  and  automatic  retries 
enabled  or  disabled.  Tne  single  sector,  programmed  I/O,  and 
automatic  retries  enabled  options  were  used  for  all 
read/write  operations  in  tnis  implementation  of  yicropolis. 
The  automatic  retries  feature  is  an  extremely  powerful  one 
and  warrants  further  discussion. 

If  automatic  retries  are  enabled,  tnree  levels  of 
retry  are  performed  by  tne  disic  controller  for  data  errors. 
In  level  one,  a  correction  attempt  is  made  on  tne  data  using 
tne  standard  CRC-CCITT  16tn  order  polynomial.  If  tne 
correction  attempt  was  successful,  tne  corrected  data  is 
transmitted  to  tne  host.  If  not  successful,  a  level  two 
retry  is  invoked.  Level  two  will  repeat  tne  operation  and 
correct'*  j  attempt  up  to  ten  times.  If  still  unsucessful,  a 
level  tnree  retry  begins.  In  level  tnree,  tne  read 
amplifier  ?ain  is  increased  and  level  one  and  two  retries 

are  performed.  If  tnis  falls,  tne  aead  positioner  is  offset 

/ 

one  way  then  tne  other  from  tne  tracic  center  and  level  one 
and  two  retries  are  performed  again.  If  all  retries  fall, 
tne  command  is  abortsd  and  an  error  condition  is  placed  in 
tne  Termination  Status  byte.  This  feature  clearly  provides 


for  a  nlen  degree  of  data  integrity  and  error  recovery. 


4 .  Pa  rameters 

All  six  parameter  bytes  required  as  a  part  of 
command  execution  must  be  transmitted  to  tne  controller  even 
tnougn  some  may  not  be  used.  A  description  of  tnose 
parameters  is  contained  in  tne  list  below. 

a.  Parm  l:  Bits  4-?  contain  tne  nead  address  (a 

value  between  0  and  4).  Sits  2  and  3  are  set  to  0  and  bits 
1  and  2  contain  tne  unit  address.  Recall  tnat  only  one 

Micropolis  list  unit  is  used  and  tnat  its  address  is  0. 
Tnis  mates  only  five  values  valid  for  Parm  1  depending  on 
tne  bead  selected:  00K,  10H ,  20H,  30H,  and  40K. 

b.  Parm  2:  Tnis  parameter  contains  tne  least 

significant  S  bits  of  tne  tract  address. 

c.  Parm  3:  Bits  0-2  contain  tbe  most  significant  3 
bits  of  tne  tract  address  and  ail  otners  are  set  to  0. 

1.  Parm  4:  Contains  tne  sector  address  fa  value 

between  0  and  23). 

e.  Farm  b:  Contains  tne  number  of  sectors  to 

process.  In  tnis  implementation,  tnis  value  is  set  to  l. 

f.  Parm  5:  Tnis  parameter  is  used  only  in  tract 

oriented  commands  and  since  sector  read/write  operations 
were  used,  tnis  byte  is  always  set  to  0. 

C.  PREVIOUS  WORK 

Tne  'licropolis  unit  nad  been  previously  interfaced  in  an 
INTEL  MDS  single  user  environment  by  James  Jonn  IRef.  14j  . 


This  interface  was  constructed  using  tne  iSSC's  or.poarc.  9255 
programmable  I/O  device. 

The  925b  can  be  configured  in  a  combination  of  tnree 
nodes:  mode  0,  mode  1,  and  mode  2.  These  modes  and  tne 
operation  of  tne  device  is  discussed  in  detail  in  [Ref.  15J  . 
In  John's  application,  the  S255  was  programmed  in  mode  2  and 
mode  0.  ^ode  2  provided  8  bi-directional  data  lines  at  Port 
A  and  5  control  lines  for  the  bi-directional  data  port  and  3 
output  only  lines  at  Port  C.  Mode  0  provided  8  output  only- 
lines  at  Port  U. 

Tne  required  8225  drivers  with  IK  onm  puilup  resistors 
are  hard-wired  on  tne  96/12A  in  line  with  tne  bi-directional 
data  port  of  the  8255  and  did  not  nave  to  be  added.  The 
required  7433  drivers  were  inserted  in  sockets  All  and  A12 
on  tne  iSEC  in  line  with  Ports  B  and  C.  John's  final 
interface  desien  is  depicted  in  Figure  4.1.  (Ail  active 

low  signals  are  indicated  by  following  tne  signal  name  with 
a  sucn  as  ACK/.  Tnis  notation  will  be  used  throughout 

th  remainder  of  this  thesis.)  Note  from  tnis  figure  that 
tne  STB/  and  ACK/  signals  needed  by  tne  8255  to  iatcn  input 
data  and  enable  the  tri-state  outout  buffer  are  provided  by 
wiring  two  of  tne  Port  S  output  lines  into  the  ST3/  and  ACK/ 
inputs.  These  signals  must  be  controlled  locally  as  the 
disK  controller  provides  no  compatible  signals. 

As  part  of  James  Jonn's  wort,  ne  also  reconfigured  tne 
CP/M  3I0S  to  accomodate  the  Mlcropolis  disic  and  two  INTEL 
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MDS  floppy  disK  units.  Tnis  gave  a  complete,  single  user 
system  witn  a  total  of  seven  accessible  drives. 

D.  INITIAL  EFFORTS 

It  was  envisioned  to  expand  on  John's  worx  to  accomplisn 
integration  of  tne  Micropolis  distc  drive  into  tne  AEGIS 
multiuser  development  system.  Therefore,  tne  first  logical 
step  was  to  set  up  James  Jonn's  system  and  test  it. 

Various  files  were  read  from  tne  floppy  drives  and 
written  to  tne  Micropolis  drives  and  vice  versa.  Tnis 
orginally  appeared  successful.  However,  whenever  a  source 
code  assembly  language  file  was  read  and  an  assembly 
attempted  on  tnat  file,  tne  assembly  continuously  failed.  A 
print-out  of  tne  source  code  file  *as  obtained  and  various 
errors  were  found  tnat  did  not  exist  in  tne  original  file. 
Tnis  led  to  tne  belief  tnat  a  bad  copy  of  tne  ASM86.CmD 
assembler  was  being  used  and  it  was  crasr.in g  not  only 
tne  system  out  also  tne  file  it  was  operating  on.  A  good 
copy  of  tne  assembler  was  obtained  and  tne  test  repeated 
witn  continued  negative  results.  Hardware  connections  were 
verified  and  re-verified.  Software  was  also  cneciced  and  re- 
checsed.  Nevertheless,  numerous  other  experiments  still 
produced  negative  results. 

At  tnis  point,  tne  design  was  re-examined  and  this 
uncovered  tne  problem.  A  timing  analysis  was  performed  and 
is  presented  in  Figure  4.2.  Tne  la  ten  of  WRITE  data  from 
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Figure  4.2  Timing  Analysis  of  Previous  Design 
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the  host  to  tne  controller  occurs  within  a  valid  region 


i 


(window)  as  snown.  However,  tne  latcn  of  READ  data  from 
the  controller  to  tne  host  does  not.  This  occurs  tecause 
tne  RSTR/  and  ST3/  signals  are  physically  wired  together. 
Botn  will  go  active/inactive  at  exactly  tne  same  time.  Tne 
controller  will  nold  tne  bus  active  only  for  100  nanoseconds 
maximum  after  RSTR/  goes  inactive.  However,  tne  3255 
requires  150  nanoseconds  minimum  to  latcn  tne  data  after 
STB/  goes  inactive.  Tnus,  tne  data  tnat  is  latcned  may  or 
may  not  be  valid.  This  explains  why  marginal  success  was 
obtained  wnen  source  files  were  just  written  to  and  read 
from  the  Micropolis.  It  also  explains  wny  random  errors 
tnat  were  not  present  in  the  original  source  file  were  found 
in  the  file  tnat  was  printed  from  tne  Micropolis. 

E.  NEW  DEVELOPMENT 
1 .  Design 

A  new  interface  was  designed  in  wnich  tne  ACX/, 
STB/,  RSTR/,  and  W STR/  signals  were  ail  independently 
controlled  by  setting  tne  appropriate  bit  on  tne  8255. 
Because  tne  condition  of  eacn  individual  signal  is  now  under 
software  control,  it  can  be  ensured  tnat  tne  lata  will 
remain  valid  lone  enougn  for  eitner  tne  controller  or  tne 
8255  to  latcn  it.  The  new  design  is  presented  in  Figure  4.3 
and  tne  associated  timing  diagram  in  Figure  4.4.  As  snown 


in  Figure  4.4,  ail  latching  occurs  in  valid  windows. 
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Figure  4.4  Timing  Analysis  of  Interface  Design 


To  write  a  byte  of  information  to  tne  controller, 
tne  byte  is  first  written  to  Port  A  of  tne  8255  ana  tne  ACK/ 
signal  is  set  to  0,  enabling  tne  tri-state  output  buffer  and 
driving  tne  bus  lines  witn  tne  contents  of  tnat  buffer. 
Next,  WSTR/  is  turned  on  (set  to  1)  and  turned  off  (set  to 
0).  Tne  controller  will  copy  tne  bus  lines  into  an  input 
buffer  on  tne  trailing  edge  of  WSTR/.  Finally,  tne  tri¬ 
state  buffer  of  tne  825b  is  disabled  by  setting  ACK/  to  1 
and  tne  write  operation  is  complete. 

To  read  a  byte  of  information  from  tne  controller, 
RSTR/  is  activated.  Tnis  will  cause  tne  controller  to  drive 
tne  bus  lines  witn  its  data  buffer  as  long  as  RSTR/  remains 
active.  Next,  STS/  is  turned  on  (set  to  0)  anc  turned  off 
(set  to  1).  Tnis  copies  tne  bus  lines  into  tne  8255  input 
buffer.  Lastly,  tne  RSTR/  signal  is  deactivated  and  tne 
byte  can  oe  accessed  by  reading  Port  A  of  tne  8255. 

Each  of  tne  bit  set/reset  operations  needed  in  tne 
read  or  write  functions  just  described,  requires  a  VOV  and 
an  OUT  instruction  for  a  total  of  20  does  periods  in  tne 
8086.  Witn  a  5  Mnz  cloctc,  this  is  4.0  microseconds  and 
clearly,  more  tnan  meets  tne  response  or  settling  time 
constraints  of  eitner  tne  8255  or  tne  diss  controller. 

2.  Implementation  and  Testing 

Tne  design  in  Figure  4.3  was  set  up  on  an  iS3C 
86/12A.  Tne  following  Hardware  changes  were  required  to  the 


board : 


Remove  jumpers: 

E13-E14  E17-E18  E21-E25 

E15-E16  E19-S20  S28-E29 

Aid  jumpers: 

S28-E15 

E30-E17 

E30-E25 

Aid  7438  drivers  in  sockets: 

XA11 

XA12 

Next,  a  cable  was  constructed  tnat  would  interface 
tne  J1  34  pin  else  connector  of  tne  86/12A  to  tne  J101  34 

pin  edge  connector  of  tne  Micropolis  controller.  Tne 

cabling  requirements  ere  snown  in  Table  4.1.  Tnose  pins  not 
shown  are  not  required  and  are  not  connected. 

Tne  86/12A  was  tnen  placed  in  tne  iCS  80  chassis  for 
testing.  Only  tne  most  primitive  routines  were  written  to 
read  and  write  to  various  heads,  traces,  and  sectors  of  tne 
Micropolls.  These  were  executed  under  DDT86  to  allow  manual 
changing  of  tne  command  and  parameter  bytes.  First,  a 
slnsle  character  was  written  to  fill  an  entire  sector  and 
tnen  read  fcactc.  This  was  successful.  Next,  a  text  message 
was  prepared  and  written  to  a  variety  of  different  sectors 
and  traces  of  each  drive  head.  In  eac.n  case,  the  message 
was  retrieved  successfully  and  it  was  concluded  tnat  tne 
design  was  functional. 
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F.  INTERRUPT  MECHANISM 


1 .  Design 

Vi tn  tne  interface  design  complete,  it  remained  to 
design  tne  timer-co ntroliel  interrupt  for  polling  common 
memory.  Tne  design  was  cased  on  two  devices  availaoie  on 
tne  86/124:  tne  INTEL  8253  programmaDle  interval  timer  ana 
the  INTEL  8253  peripnerai  interrupt  controliar. 

Tne  8253  nas  tnree  itcependent  15-nit  counters  and 
eacn  can  be  programmed  in  one  of  five  nodes.  Details  of  its 
operation  can  be  found  in  [Ref.  1 5 J .  Tne  design  employed 
nere  uses  only  counter  0  and  it  is  programmed  in  mode  0,  tne 
"interrupt  on  terminal  count"  mode.  In  tnis  mode,  tne 
output  of  tne  timer  will  oe  driven  low  wnen  tne  mode  control 
word  is  written  to  it.  After  tne  ^ount  value  is  ioaaea  into 
tne  count  port,  tne  counter  will  Degin  counting  down.  Upon 
reacnmg  tne  terminal  count,  tne  timer  output  will  go  nign 
and  remain  nign  until  a  new  count  value  is  loaded. 

Tne  mode  control  word  selected  was  30R.  This  gives 
timer  0  tne  following  cnaracteristics :  operation  in  mode  2, 
binary  15-bit  counter,  and  load  count  value  as  least 
significant  Dyte  first  tnen  most  significant  byte.  Tne 
count  value  used  was  300CK  wnicn  corresponds  to  an  interval 
of  10  milliseconds  at  a  does  frequency  of  1.23  MHZ  (tne 
does  frequency  supplied  to  tne  8253  oy  factory  default). 

Lise  tne  8253,  tne  INTEL  8259  nas  rar.y  different 
Only  tnose  appropriate  to  tnis  design 
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options  available. 


are  covered  in  tne  following  paragrapns.  For  Tore 
information  see  [Ref.  15J  . 

Three  initialization  command  words  (IC'rfl  ana  one 
operational  control  word  (OCV)  are  required  to  properly 

configure  tne  9259.  ICW1  is  set  to  13H.  This  corresponds 
to  edge  triggering,  no  slave  interrupt  controllers,  and  ICV3 
is  not  reauired. 

ICV2  is  set  to  40R.  Tnis  is  used  in  conjunction 
with  tne  interrupt  level  number  to  arrive  at  the  address  in 
tne  interrupt  vector  table  (see  Figure  2.3)  from  which  to 
obtain  the  code  segment  and  offset  values  for  tne  interrupt 
handler  routine.  Interrupt  level  6  was  cnosen  ana  tnis 
corresponds  to  a  vector  table  address  of: 

4  *  (40H  +  5H)  *  lieH 

Tnerefore,  tne  address  of  tne  interrupt  nanaier  must  be 
loaded  in  tnis  location. 

ICV4  is  set  to  0FH.  Tnis  indicates  8086  mode, 
automatic  end  of  interrupt,  and  buffered  mode. 

OCW1  is  used  to  mass  unused  interrupts.  It  is  set 
to  3FH .  Tnis  enables  interrupt  level  5  and  disables  all 
others . 

2.  Implementation  and  Testing 

To  implement  tne  design  simply  reauired  removing 
default  jumper  E79-E83  and  connecting  a  jumper  between  E?5 
and  ES3.  Tnis  connects  tne  output  of  timer  2  on  tne  8253  to 
the  interrupt  6  input  on  tne  8259. 


A  primitive  routine  was  written  tnat  initializes, 
botn  devices  as  sesciDed  above  ana  loaded  an  interrupt 
nandler  address  into  tne  vector  table.  Tne  interrupt 
handler  was  a  simple  routine  tnat  performed  tne  following': 
saved  all  registers  on  tne  stacic,  printed  a  message  at  tne 
console,  restored  all  registers,  and  reloaded  tne  count 
value  into  tne  timer.  Wnen  tested,  tne  timer-cor.trolied 
interrupt  functioned  normally. 

G.  MCOPTEX  INTERRUPT 

As  stated  in  Chapter  III,  tne  ^CORTEX  operating  system 
uses  a  type  of  global  interrupt  for  message  broadcasting. 
The  hardware  conf igura tion  required  to  achieve  this  is 
depicted  in  Figure  4.5.  Port  C  of  tne  8255  is  initialized 
as  an  outout  port  and  to  "issue"  tne  interrupt  requires 
setting  tit  7  of  port  C  to  1. 

It  is  envisioned  tnat  future  development  will  allow  tne 
CP/'l-St)  operating  system  and  ^CORTEX  to  co-exist  in  tne 
local  RA*  of  each  independent  user  on  tne  AEGIS  multiuser 
deveiopmen t  system.  Tnis  was  tasen  into  account  in  this 
research  effort.  Nevertheless,  changes  in  tne  hardware  and 
hardware  initialization  will  be  necessary  before  tnis  can  be 
achieved.  Those  changes  are  identified  below. 

Both  MCORTEX  ana  CP/M-85  (with  the  'dicropolis 
integration).  Initialize  tne  8259  interrupt  controller  with 
exactly  the  same  initialization  command  woris.  Interrupt 
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Figure  4,5  MCOHTEX  Hardware  Interrupt  Connections 
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level  5  was  cnosen  for  Micropolis  to  be  of  a  lower  priori  tv 
tnan  tne  interrupt  level  4  used  by  ''ICORTEX.  However,  recall 
from  Section  F-l  tnat  tne  operational  command  word  is  set  to 
BFH  and  tnis  masics  all  interrupts  except  level  6.  Tnis 
value  will  nave  to  oe  cnanged  to  AFH  to  activate  interrupt 
level  4. 

Ttie  MCOfiTfiX  interrupt  bit  will  also  nave  to  te  moved  as 
snown  by  tne  dasned  line  in  Figure  4.5.  Tnis  is  required 
because  tne  Micropolis  dis«  drive  uses  Port  C  as  a  strobed 
input./cutput  port.  Tne  nardware  dependent  source  code  found 
in  tne  advance,  pre-empt,  and  initialization  processes  of 
MCORTEX  will  nave  to  be  updated  to  reflect  tnis  cnan?e. 


V .  SOFTWARE  IMPLEMENTATION 


A.  MAINTENANCE  SOFTWARE 

Before  tne  Micropolls  list  unit  could  tie  used,  it  was 
first  necessary  tc  write  a  routine  tna t  would  initialize  and 
format  tne  dis£  surfaces.  Tne  purpose  of  initialization  is 
to  write  tne  address  and  data  fields  of  eacr.  sector  onto  tne 
surface.  This  is  a  controller  invoked  function.  After 
initialization,  tne  address  field  will  contain  tne  required 
nead  number,  trac<  numDer,  and  sector  number.  All  data 
fields  will  contain  51H. 

Tne  purpose  of  formatting  is  to  cnange  tne  contents  of 
the  data  fields  from  the  51H  that  resulted  durine  controller 
initialization  to  E5H.  Tnis  is  necessary  because  CP/M-96 
expects  to  find  E5H  in  tne  data  fields  in  order  to  create  a 
directory  space. 

The  routine  that  was  developed,  MICMAINT.CMD,  is 
completely  menu  driven  and  extensive  error  cnecicing  is 
performed  on  all  user  supplied  input.  Tnis  routine  provides 
not  only  initialization  and  formatting  options  but  also 
verification  of  initialization  and  verification  of 
formatting.  Tnese  additional  facilities  enade  tne  user  to 
easily  uncover  any  disn  surface  defects.  For  an  explanation 
of  now  to  use  MICMAINT.CMD,  see  APPENDIX  A  (User's  Manual 
for  the  AEGIS  System). 


Tne  Micropoiis  diss  surfaces  were  successfully 
initialized  and  formatted  witn  MICMAINT.CMD.  No  surface 
defects  were  found  in  tne  initialization  process. 

B.  DEVELOPMENT  OF  THE  DE7ICS  DEPENDENT  ROUTINES 

As  stated  in  Cnapter  III,  seven  device  dependent 
routines  were  necessary  in  order  to  interface  tne  wicropoiis 
dislc  drive  into  tne  AEOIS  development  system.  The  SELDSK, 
HOME,  SETTRE,  S2TSEC,  READ,  and  V RITE  routines  were 
developed  simultaneously.  Tnis  was  a  consequence  of  tne 
Micropolis  512  byte  pnysicai  sector  lenetn.  Tee  CP/M-t6 
operating  system  utilizes  a  128  byte  logical  sector  lengtn. 
Therefore,  a  pnysicai  to  logical  sector  mapping 
(blocfcing./deoiocfcing  technique)  was  required  ir.  order  to 
communicate  witn  CP/M.  Tne  metnod  used  nad  an  effect  on  all 
six  of  tnese  routines. 

Tne  INIT  routine  required  special  attention  as  it  was 
used  net  only  to  initialize  tne  parallel  I/O  port,  tne 
timer,  and  tne  interrupt  controller  put  also  to  emoed  tne 
tne  interrupt  nandler  witnin  tne  operating  system.  Tne 
details  of  cctn  tne  INIT  routine  development  and  tne 
blocning/ieblocicing  algorithms  used  are  given  below. 

1.  Initialization  and  Interrupt  Handler 

The  hardware  initialization  required  for  tne  INIT 
routine  had  been  previously  developed  and  tested  (see 
Cnapter  IV).  It  remained  to  develop  an  interrupt  nandier. 


Recall  teat  tee  sole  purpose  of  tee  interrupt 
handler  15  to  effect  communications  Detween  tne  ^.icropoiis 
disic  controller  ana  tne  common  memory.  A  status  oyt^, 
command  pacaet,  and  a  512  oyte  sector  Duffer  were 
estaDliseed  in  tee  common  memory  to  coordinate  teis  effort. 
Figure  5.1  depicts  tne  resulting  map  of  common  memorv 
addresses . 

Tee  status  oyte  serves  two  purposes:  to  inform  tee 
interrupt  nandier  tnat  a  disi  read/write  operation  is  being 
reauested  and  to  return  tne  success/f ai lure  ~oie  tnat 
resulted  during  tnat  operation.  It  is  initialized  to  0FFH 
as  a  part  of  tne  ^icropolis  INIT  routine.  Tne  status  byte 
is  set  to  80H  to  request  a  diSK  operation  and  tne  interrupt 
nandier  will  return  if  AH  if  tne  operation  was  successful.  If 
it  failed,  one  of  the  nine  error  codes  listed  in  tne 
Micrcpolis  Technical  Yanual  pages  24-25  is  returned. 

Tne  command  pacKet  consists  of  elgnt  values:  tne 
command  byte,  six  parameter  bytes,  and  tne  GO  byte.  The 
parameter  bytes  were  discussed  in  detail  in  Chapter  IV, 
Section  B-4.  The  GO  byte  can  taice  on  any  value  and  0  was 
used.  The  command  Dyte  used  in  this  implementation  can  oe 
either  47H  for  tne  write  operation  or  4EH  for  tne  read 
operation.  Tnese  values  give  ootn  tne  read  and  write 
operations  tne  desired  characteristics  of  single  sector 
processing,  programmed  I/O  data  transfers,  and  automatic 


retries  enabled. 


73 


Tne  sector  Duffer  is  used  to  transfer  data  to  and 


from  tne  controller.  Botn  primary  and  alternate  data 
transfer  protocols  are  possiDie  in  tne  programmed  I/O  mode 
and  tnese  are  shown  in  Figures  5.2  and  5.3  respectively. 
The  alternate  protocol  differs  from  tne  primary  protocol  in 
tne  amount  of  status  checking  required.  as  snown,  tne 
primary  protocol  requires  a  status  cnecx  between  tne 
transfer  of  eacn  data  byte  wnile  tne  alternate  does  not. 
Use  of  tne  alternate  protocol  is  possible  only  if  tne  loop 
time  is  greater  tnan  tne  1.5  microseconds/oyte  response  time 
of  tne  controller.  Recall  from  Chapter  IV  that  ail 
operations  require  a  minimum  of  a  MOV  ana  an  OUT  instruction 
and  tnese  two  instructions  need  4.0  microseconds  to  execute. 
Thus,  tne  alternate  data  protocol  was  employed  in  tne 
interrupt  nandier  to  Improve  response  times. 

A  brief  description  of  now  tne  resulting*  interrupt 
nandier  worts  is  in  order.  When  tne  timer-controlled 
interrupt  occurs,  the  interrupt  nandier  routine  will  save 
tnose  registers  that  are  needed  by  tne  routine  on  tne  stacx 
and  cnect  tne  common  memory  status  byte.  If  a  non-zero 
value  is  found,  tne  timer  count  value  is  re-ioadea,  tne 
registers  are  restored  from  tne  stact,  and  a  return  is 
executed  witn  no  furtner  action  taten.  If  a  zero  value  is 
found,  the  command  byte  is  read  to  determine  the  direction 
of  lata  transfer  (to  tne  common  memory  sector  buffer  for  a 
read  operation  and  from  it  for  a  write  operation).  Next, 


GET  DATA 
FROM  BUFFER 
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the  entire  command  packet  is  transmitted  to  tne  controller 
and  wnen  tne  DREQ  signal  is  sensed,  tne  data  is  transferred 
using  tne  alternate  protocol  described  above.  Finally,  tne 
Termination  Status  byte  is  read  from  tne  controller  and 
placed  in  tne  common  memory  status  byte,  tne  registers  are 
restored  from  tne  stacir,  tne  timer  count  value  is  re-loaded, 
and  a  return  is  executed. 

Tne  interrupt  handler  and  initialization  routines 
were  loaded  into  memory  and  DDT86.CMD  was  used  to  manually 
set  tne  interrupt  handler's  common  memory  variables.  This 
enabled  extensive  testing  to  be  carried  out  and  tne  routine 
was  found  to  function  as  designed. 

At  this  point,  tne  interrupt  handler  was  being 
loaded  into  local  R  A^  at  tne  top  of  tne  transient  program 
area  ( TPA ) .  Because  all  users  nave  access  to  this  area,  it 
would  •  be  quite  a  simple  matter  to  write  over  or  otherwise 
alter  the  routine  and  thus,  disable  tne  disK  communications 
capability.  A  more  practical  solution  nad  to  be  found.  It 
was  decided  to  place  tne  interr  pt  handler  immediately 
following  tne  return  instruction  of  tne  Yicropolis  INI? 
routine  for  two  reasons.  First,  because  tne  routine  would 
oe  a  part  of  tne  operating  system,  it  would  not  oe  as  easily 
accessible  by  tne  user.  Secondly,  this  co-iocates  tne 
routine  witn  tne  initialization  of  tne  nardware  used  to 
invoke  it.  This  mates  future  modifications  to  tne  routine 
or  tne  technique  easier. 
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2.  Blogging/ Deblocking 

The  pnysicai  to  logical  sector  rapping  require!  for 
tne  micropolis  liss  system  was  supplied,  in  part,  by  tne 
Digital  Researcn  DEBLOCK. LIB  source  file.  Tnis  file  is 

supplied  as  a  part  of  tne  CP/M-Sb  operating  system.  .  It 
provides  a  complete  routine  for  HOME,  SETTM,  SSTSEC,  ana 
SELDSE  operations.  READ  and  WRITE  operations  are  also 
supplied  but  require  tne  user  developed  routines  READHST  and 
WRITERS  T. 

Tne  REaDHST  routine  teat  was  developed  prepares  tne 
command  pacset  described  in  Section  1  above  and  sends  it  to 
tne  common  memory.  Tne  status  byte  is  taen  cnanged  tc  5?  ani 
tne  routine  waits  for  tne  interrupt  nandler  tc  cnange  tne 
status  byte.  If  tne  status  byte  indicates  success,  tne 
common  memory  buffer  is  copied  into  a  local  sector  buffer 
and  tne  operation  is  complete.  If  an  error  is  indicated, 
tne  error  flag  used  by  tne  BDOS  is  set  and  tne  common  memory 
buffer  is  not  copied. 

Tne  WRITEHST  routine  cioseiv  follows  tne  READHST 
routine.  First,  a  command  packet  is  prepared  ana  sent  to 
tne  common  memory.  Tnen  tne  local  sector  buffer  is  placed 
in  tne  common  memory  sector  buffer  ana  tne  status  byte  is 
set  to  2.  The  routine  tnen  waits  for  tne  status  byte  to 


indicate  success  or  failure  and  tne  BDOS  error  flag  is  set 
accordingly.  This  completes  tne  write  operation. 


It  snouid  be  noted  tnat  In  tne  READHST  and  'uRiTEHST 


routines,  tne  status  byte  must  be  set  to  0  only  alter  tr.e 
command  packet  and  common  memory  sector  buffer  (write 
operations  only)  are  set  up.  Tnis  is  necessary  Decause  wner. 
tne  interrupt  occurs,  tne  interrupt  Handler  will  use  tne 
command  paciet  and  sector  buffer  in  common  memory  at  tnat 
time.  If  tne  status  byte  is  set  to  0  prior  to  preparing 
common  memory,  tnere  may  or  may  not  be  enousn  time  to 
prepare  it.  Setting  tne  status  byte  to  0  after  tne  common 
memory  nas  been  prepared  ensures  tnat  tne  intended  operation 
will  be  carried  out. 

Tne  EEHLOCR . LIE  routines  cited  above  were  used  in 
tneir  entirety  to  provide  tne  remaining  device  dependent 
routines.  However,  one  minor  alteration  was  necessary.  All 
variable  names  were  prefixed  witn  "MIC".  Tnis  was  reauired 
because  Aimquist  and  Stevens'  wort  used  tne  same  routines 
for  tr.e  REMEX  nard  disx  [Ref.  bj . 

C.  INTEGRATION  INTO  THE  MULTI-USSR  SYSTEM 

To  integrate  tne  Micropclis  nard  disic  into  tne  multi¬ 
user  system,  tne  sever,  device  dependent  routines  were  placed 
in  a  single  file,  MICHARD.ASS.  Next,  tne  Disic  Parameter 
Table  was  updated  to  reflect  tne  Micropolis  disic  unit.  Eacn 
one  of  tne  five  drive  beads  was  configured  to  be  to  a 
logical  C?/m  drive.  Tne  final  logical  to  pnysical  device 
mappin?  for  tne  multiuser  system  is  sr.own  in  Table  5.1.  Tr.e 


Table  5.1  Logical  to  Pbyaical  Device  Map 
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calls  to  P.ECUEST  and  RELEASE  were  placed  in  tne  READ  ar.d 
WRITE  routines,  tne  label  taDle  file,  CPmmaST.CFG,  was 
updated,  and  an  'INCLUDE  MI CHARD . AS6 '  statement  was  placed 
in  tne  BIOS  module.  Tne  steps  of  Figure  3.4  were  followed 
and  a  new  CPM.SYS  was  generated.  Note  tnat  in  tne  original 
system  of  Almauist  and  Stevens,  tnis  file  was  titled 
"CPMVAST.CMD".  It  was  necessary  to  cnange  tne  name  as  a 
result  of  otner  wori  accomplished  during  tnis  research 
effort.  This  is  discussed  in  tne  next  section. 

Tne  master  conditional  assembly  switcn  in  tne  BIOS 
module  was  set  to  false  and  a  CPMSLAVE.SYS  file  was  created. 
Tne  slave  version  is  different  from  tne  master  version  in 
that  tne  Micropolis  interrupt  handler  and  hardware 
initialize tion,  as  well  as  the  intializaticn  of  common 
memory  synchronization  variables,  are  not  included. 

When  the  system  was  initially  tested,  it  loaded 
properly  and.  only  certain  commands,  such  as  DIR  and  REN, 
could  tv  executed.  Commands  sucn  as  PI?  and  STAT  would  not. 
In  fact,  tne  system  would  come  to  a  halt  ana  reauired  re¬ 
booting  when  these  commands  were  attempted.  Many 
experiments  were  conducted  in  an  effort  to  find  tne  source 
of  tnis  problem.  It  was  discovered  tnat  only  tne  built-in 
commands  (DIR,  REN,  ERA,  and  TYPE)  would  execute. 

The  difference  between  a  built-in  command  and  a 
transient  utility  program  is  tnat  tne  built-in  command 
resiles  in  memory  as  a  part  of  tne  operating  system  wniie 


the  transient  utility  program  resides  or.  disx.  Thus, 
transient  utility  programs ,  Hie  PIP,  must  first  re  loaded 
in  memory.  This  program  then  becomes  the  applications 
program  of  Figure  3.1.  Any  disi  operations  required  in  tne 
process  of  executing  tne  program  must  be  performed  by  tne 
BDOS  module.  Tne  applications  program  indicates  that  a  lisK 
operation  is  required  by  first  setting  tne  CX  register  of 
the  6265  to  tne  appropriate  function  numDer  and  then 
executing  tne  software  interrupt  number  224.  When 
interrupted,  tne  £UCS  module  will  carry  out  tne  indicated 
function. 

This  conflicts  with  nariware  interrupts.  Recall  from 
Chapter  II,  Section  A-4  that  a  software  interrupt  is  of 
nlgner  priority  tnan  a  hardware  interrupt.  As  snown  in 
Figure  2.4,  when  a  software  interrupt  is  being  processed, 
the  hardware  interrupts  are  not  sensed.  A  transient  utility 
program  enters  tne  BDOS  oy  executing  a  software  interrupt  as 
described  above  to  perform  any  read/write  operation.  In 
this  implementation,  the  read/write  operation  for  tne 
Picropolis  can  be  completed  only  if  tne  hardware  Interrupt 
occurs.  Tnerefore,  a  deadlock  results. 

Tnls  problem  was  solved  oy  executing  an  INT  72 
instruction  on  tne  master  board  wnenever  a  vli-'ropoiis 
read/write  operation  is  needed.  This  forces  tne  interrupt 
handler  to  execute  even  though  tne  entry  to  tne  BDOS  nas 

hardware  from  causing  its  execution.  Tne 
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prevented  tne 


CPM.SYS  and  CPMSLAVE.CMD  files  were  re-generated  as  stated 
above  and  tested  again.  Ail  command  file  executions  on  tne 
master  board  were  successful.  All  four  AEGIS  system  boards 
were  tnen  booted  and  tne  multiuser  system  was  tested. 
Simultaneous  operations  conducted  on  tnese  four  boards  were 
also  successful  and  it  was  concluded  tnat  tne  Micropolis 
disK  unit  nad  been  successfully  intesrated  into  tne 
multiuser  AEGIS  development  system. 

D.  A  NSV  SOOT  ROM  AND  LOADER 

Early  in  tne  development  staees  of  tne  Micropolis 
interface,  it  was  discovered  tnat  a  power  failure  would 
destroy  tne  contents  of  bubble  memory.  Since,  tne  operating 
system  was  booted  from  this  device,  worn:  ^ould  r.ot  be 
continued  until  tne  bubble  memory  nad  been  re-formatted  and 
re-loaded  witn  tne  operating  system.  Tnis  is  an  extremely 
time  consuming  tas«c  and  tne  metnod  is  detailed  in  [Ref.  b, 
Chapter  IV,  Section  DJ  .  Thus,  it  was  considered  desirable 
to  be  able  to  boot  load  tne  operating  system  from  tne  REMEX 
floppy  dist  drive.  A  new  boot  ROM  and  loaner  routine  were 
developed  for  tnat  purpose. 

1 .  Boot  Leader 

As  stated  in  Cnapter  III,  tne  fcK.  byte  EPROM  cnips 
on  the  iSBC  3S/12A  contain  tne  INTEL  957  monitor  and  control 
is  passed  to  tne  monitor  wnenever  tne  system  RESET  button  is 
pushed.  Both  the  bubble  boot  loader  and  tne  INTEL  MDS 


system  boot  loader  co-exist  with  tne  monitor  in  tnis  8E 
EPROM  space. 

It  was  originally  tnougnt  tnat  tne  REMEX  boot 
loader  could  simply  be  added  to  tne  EPROM.  However,  tnis 
was  not  possible  because  tne  space  occupied  Dy  tne  monitor 
severely  limits  tne  space  available  for  programs.  Tne  SE 
EPROM  cnips  occupy  tne  address  space  between  8FE2132K  and 
0FFFFFH.  Tne  957  monitor  occupies  tne  space  between  fc’FEtfk'eH 
and  0FFD22H  and  contains  a  set  of  jump  vectors  at  tne  base 
of  tnis  address  space.  Tnis  leaves  approximately  72^ 
decimal  bytes  of  space  for  boot  loader  programs.  It  was 
decided  at  tnis  point  to  maintain  tne  monitor  and  INTEL  MLS 
system  boot  loader  in  tne  EPROM  and  to  replace  tne  bubble 
boot  loader  with  tne  cne  for  REMEX.  Tnis  would  preserve  tne 
flexibility  of  being  able  to  boot  load  tne  06/12A  from  two 
different  systems  instead  of  just  one. 

A  boot  loader  simply  loads  tne  program  located  cn 
tne  reserved  system  traces  of  tne  dis£  into  memory  and 
passes  control  to  it.  It  is  tne  responsibility  of  tnis 
program,  tne  loader,  to  load  tne  actual  operating  system 
into  memory  and  pass  control  to  it.  To  develop  a  boot 
loader  for  tne  REMEX  would  require  tnat  a  wording  system 
loader  be  placed  on  tne  system  tracss  of  tne  dissette. 
Since  one  nad  net  yet  teen  written  for  tne  REMEX,  tne  bubble 
system  loader,  LDRM3B0.CMD,  was  used  for  development 
purposes.  This  would  permit  tne  boot  loaier  under 
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2 •  System  Loader 

Tne  system  tracts  of  a  single  density,  eignt  lncn 
floppy  dist  nave  S.5K  bytes  of  storage  capacity  and  tne 
system  loader  must  De  limited  to  tnis  size.  To  generate  a 
loader  BIOS  module  for  tne  RJSMEX,  a  conditional  assembly 
svitcn  wee  added  to  tne  present  BIOS  module.  Tne  switcn, 
"loader_bios ",  wnen  set  to  true,  only  induces  in  tne 
assembly  tne  device  dependent  code  related  to  tne  P.EMEX 
floppy  dist  drive.  A  new  label  table  file  and  a  new  Dist 
Parameter  Table  were  created.  Tnese  files,  LLRMAST.DFG  anc 
LDRMAST .LIB  respectively,  reflect  tne  PEMEX  floppy  disc  as 
tne  only  dist  drive  in  tne  system.  Tne  steps  of  Figure  3.5 
were  used  to  create  tne  loader  (It  snould  be  noted  nere  tnat 
tne  LDCP'I.CyiD  provided  py  Digital  Researcn  for  use  in  tne 
loader,  expects  to  find  tne  system  file  as  CPM.SYS  and  tnis 
was  tne  reason  for  tne  name  cftange  cited  in  Section  C 
above).  Tne  resulting  loader,  RMXLDR.CMD,  was  approximately 
bK  bytes  ana  easily  fit  on  tne  system  tracts  Tne  REM EX 
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system  loader  was  debugged  and  tested  using  the  REmEX  Dcot 
loader  as  tae  test  vehicle. 

3.  Programming  the  EPROM 

With  the  boot  loader  and  system  loader  routines 
complete,  tae  EPROM  chips  could  now  be  programmed.  The  92 
bytes  of  EPP.OM  consist  of  four  22  byte  INTEL  2715 's. 
Because  of  tne  even-odd  addressing  used  on  tne  85/12A,  two 
of  tnese  occupy  tae  even  42  Dyte  address  space  vnile  tne 
other  two  occupy  the  odd  42  byte  address  space.  Because  the 
only  space  available  for  boot  loaders  Is  located  entirely 
within  the  upper  42  bytes  of  EPROM,  it  was  necessary  only  to 
modify  tne  two  2715's  occupying  this  address  space. 

DBTes.CMD  was  used  to  read  tne  contents  of  tne 
upper  42  bytes  of  the  86/12A's  EPROM  and  this  was  saved  as  a 
CMD  file.  Again  using  DDTS5.CMD,  the  existing  boot  loaders 
were  removed  from  this  file  and  tne  contents  of  RM7R0M.CMD 
were  inserted.  This  resulted  in  a  single  contiguous  file 
containing  tne  upper  portion  of  tne  957  monitor,  a  boot 
loader  for  the  REMEX,  a  boot  loader  for  tne  INTEL  MES 
system,  and  tae  Jump  vectors  required  by  the  957  monitor. 

Two  routines  were  tnen  written  that  split  this  file 
into  two  files:  one  containing  tne  odd  address  bytes  and  the 
otner  containing  tne  even  address  bytes.  Two  new  INTEL 
2715s  were  tnen  programmed  with  the  contents  of  these  two 
files.  Tne  newly  programmed  chips  were  placed  on  tne  iS3C 
85/12A  and  tested.  The  INTEL  MLS  system  was  successfully 


boot  loaded  oy  typing  tne  command  GFFD4:fc'  from  tne  monitor 
and  toe  AEGIS  development  system  was  successfully  rooted 
from  tne  REMEX  floppy  diss  drive  oy  typing  tne  command 

”GFFD4:4"  from  tne  monitor. 


VI.  RESULTS  AND  CONCLUSIONS 


A.  EVALUATION 

Two  tests  were  conducted  to  evaluate  tne  performance  of 
tne  AEGIS  development  system.  Tfte  first  test  consisted  of 
assembling  a  6£  byte  file  and  recording  tne  assembly  time. 
Tnis  was  done  for  botn  tne  Micropoiis  distr  system  and  tne 
REMEX  Data  Warehouse  witn  one,  two,  tnree,  and  finally,  four 
computers  operating  simultaneously.  Timing  was  accomplisned 
witn  a  standard  stopwatcn.  Tne  results  of  tnis  test  are 
snown  in  Table  6.1 

Tne  second  test  consisted  of  file  transfers  using  tne 
PIP.CMD  file  utility.  Tnis  represents  a  worst  case 
situation  as  file  transfers  are  I/O  intensive.  Four 
transfer  directions  were  tested:  REMEX  to  REMEX,  Micropoiis 
to  REMEX,  REMEX  to  Micropoiis,  and  "icropolis  to  Micropoiis. 
A  single  27X  byte  file  was  used  as  tne  transfer  file.  Once 
again,  tne  test  was  conducted  witn  first  one  computer 
operating  and  tnen  witn  two,  tnree,  and  four  computers 
operating  simultaneously.  Tne  results  of  tnis  test  are  also 
snown  in  Table  6.1. 

*s  indicated  by  tne  assembly  data,  tnere  is  not  a  linear 
relationship  between  tne  number  of  computers  in  tne  system 
and  tne  times  required  for  assembly.  In  fact,  witn  four 
computers,  tne  time  required  for  assembly  of  tne  6K  byte 
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Execution  tines  (  in  seconds) 


and 


ASU86 


ASUS  6 

Uicropolis 


to 

Uicropolis 


PIP 

Uicropolis 

to 

Uicropoliw 


One 

Computer 

Operating 

Two 

Computers 

Operating 

Three 

Conpwters 

Operating 

Four 

Computers 

Operating 

25.2 

EM 

43.7 

58.2 

30.2 

49.2 

62.4 

76.5 

5.5 

22.3 

29.7 

32.9 

48.6 


I 


62.6 


67,3 


Table  6.1  Test  Data 
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file  is  rougnly  2.5  times  tne  time  required  witn  just  one 
computer.  Tnis  is  accounted  for  by  realizing  tftat,  except 
for  tne  contention  for  snared  resources  (common  memory  and 
hence,  disff  access  time),  eacn  computer  can  assemcle  tne 
file  independently  of  tne  otners. 

From  tne  file  transfer  data,  as  well  as  tne  assembly 
data,  it  is  immediately  apparent  tnat  tne  P.EMEX  Data 
Warehouse  operates  faster  tnan  tne  Micropolis  disic  system. 
However,  tnis  is  not  an  order  of  magnitude  as  one  mignt 
expect  viien  comparing  a  DMA  interfaced  nard  disic  to  one  tnat 
is  interfaced  using  programmed  I/O.  If  tne  ten  millisecond 
polled  interrupt  (used  to  communicate  with  tne  Micropolis) 
is  taicen  into  account,  tne  Micropolis  performance  would  come 
even  closer  to  tnat  of  tne  REMEX .  Tne  reason  tnat  tne 
programmed  I/O  interface  performance  is  close  to  tnat  of  a 
DMA  interface  is  tnat  more  time  is  expended  in  disic  head 
movement  tnan  memory  access. 

B.  GENERAL  CONCLUSIONS 

Tne  primary  goal  of  tnis  thesis  was  met.  A  hardware 
interface  was  designed  for  tne  Micropolis  disic  drive  using 
programmed  I/O  techniques  and  tnis  was  successfully 
integrated  into  tne  AEGIS  multiuser  system.  Tne  system  was 
demonstrated  witn  four  independent  users  operating 
simultaneously.  Tne  addition  of  tne  Micropolis  disic  system 
to  the  AEGIS  system  orovides  an  additional  35. 5M  bytes  of 


on-line  storage  capacity  and  snoula  prove  to  be  more  tear, 
adequate  for  program  and  data  storage.  Tnis  frees  tne  REMEX 
nard  aist  to  oe  used  entirely  for  tne  SPY-lA  radar  emulation 
rather  than  as  a  software  storage  media. 

A  boot  ROM  was  also  developed  tnat  allowed  leading  tne 
operating  system  from  the  REMEX  floppy  disK  drive.  Tnis 
proved  to  oe  more  reliable  tnan  tne  bubble  coot  procedure 
used  at  tne  onset  of  tnis  researen.  Tne  bubble  memory 
frequently  "crashed"  and  required  reformatting  and  reloading 
before  it  could  be  used  again.  The  cause  for  this  was  never 
discovered  except  for  noting  tnat  every  time  a  power  failure 
occurred,  the  bubble  memory  would  crash.  Tne  board  nas  on¬ 
board  power  failure  protection  circuitry.  However,  the 
facilities  required  to  thoroughly  test  tnis  circuitry  were  I 

not  availame. 

Future  researen  involving  the  AEGIS  multiuser  system 
snould  include  expansion  of  tne  current  S£  EEROM  to  lbK  and  I 

development  of  a  boot  loader  tnat  would  allow  booting  from 
any  of  tne  devices  in  tne  system.  As  tne  current  system 
stands,  if  tne  REMEX  floppy  disK  drive  fails,  eitner  a  new  I 

boot  ROM  will  nave  to  be  generated  or  tne  old  bubble  boot 
ROM  will  nave  to  be  restored.  Tnis  nay  eventually  prove  to 
be  too  inflexible.  ! 

Additionally,  some  type  of  protection  scheme  needs  to  be 
implemented  for  common  memory.  Currently,  tnere  is  no 


protection  and  a  user  program  tnat  has  gone  out  of  control 


could  unite  easily  destroy  tne  data  in  common  memory, 
development  wouli  require  tnat  some  type  of  nardware  a: 
control  De  designed  and  tne  3I0S  monule  ee  mocified 
activate  that  hardware  whenever  common  memory  access 
required. 


APPENDIX  A 


USER'S  MANUAL  FOR  THE  AEGIS  SYSTEM 
A.  SYSTEM  CONFIGURATION 

The  AEGIS  development  system  consists  of:  one  bubble 
memory  board,  four  INTEL  iSEC  86/12A  boards,  tne  REMEX  Data 
Warehouse,  the  Micropolis  distc  system,  and  a  32X  byte  common 
memory  board.  Tnese  boards  must  meet  certain  requirements 
in  order  to  worK  properly  in  tne  system  and  these  are 
described  in  the  paragraphs  that  follow. 

1.  Master  IS  EC  86/12A 

This  board  is  used  as  tne  Micropolis  iisic  unit 
interface  and  provides  tne  bus  does  and  constant  ciocs 
signals  to  the  MULTIHUS.  This  board  must  be  positionea  in 
the  ICS-50  cnassis  in  an  odd-numberea  slot  (the  slots  are 
numbered  from  1  to  15  left  to  right ) .  The  board 

requirements  are: 

Remove  jumpers: 

E13-E14  E21-E25 

S15-E15  E2B-E29 

E17-E1B  E30-E31 

E19-S20  E32-S33 

Add  Jumpers: 

E28-S15  E30-E17 

E30-E25 

Add  7438  drivers  in  sockets: 

XA1 1  XA12 
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Tnis  will  set  up  tne  9255  interface  for  tne  Micropcus  cis.-c. 
To  provide  tne  constant  ciock  and  Dus  ciocst: 

Add  jumpers: 

El£3-Eie4  E105-Eltf6 

This  board  must  also  contain  tne  EPROM  cnips  witn  tne  REMEX 
boot  routines.  Tne  final  requirement  is  tnat  tne  local  RAM 
be  made  inaccessible  to  tne  MULTIBUS.  Tnis  is  cone  by- 
addins  jumper  E112-E114  and  removing  jumper  E115-E12 c. 

2.  All  Other  iSBC  8S/12a/s 

Tne  remaining  boards  must  nave  local  RAM 
inaccessaoie  to  tne  MULTIBUS  and  must  not  provide  anv  clocc 
signals.  To  maire  tne  RAM  inaccessi  Die ,  add  jumper  E112-E114 
and  remove  jumper  E115-E128.  To  disable  tne  cioci  signals, 
remove  jumper  Eli33-Elfci4  and  E105-E106. 

3.  REMSX  DISK  Driyp 

Tne  Remex  controller  board  mus  be  plugged  into  an 
odd-numbered  slot  in  tee  iCS-8tf  cnassis. 

4.  Bubble  Memory 

Bubble  memory  must  ce  plugged  into  tne  slot 

containing  tne  RUN/HALT  switch  (currently  position  3). 

5.  32K  3£te  RAM  Board 

Tnis  board  can  be  plugged  into  any  slot  in  tne 
cnassis  and  must  be  configured  to  start  at  address  EtffcJSJfdH. 
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B.  ACTIVATING  TEE  SYSTEM 

Before  turning  any  power  on,  . nsure  taat  tr.e  R'JN /HALT 
switcn  located  on  tne  front  panel  of  tne  iCS-B0  cnassis  is 
in  tne  HALT  position.  Next  power-on  tne  equipment  in  tne 
following  order: 

1.  Apply  power  to  tne  iCS-Bfc?  cnassis  cy  turning  tne 
OFF/ON/LOCK  £ey  to  tne  ON  position. 

2.  Turn  on  tne  REMEX  diss  oy  toggling  tne  OFi/O.N  switcn 
on  tne  upper  right  of  tne  front  panel  to  ON. 

3.  Activate  tne  Micropoiis  diss  by  toggling  tne  switcn 
on  tne  ri ?nt  of  its  front  panel  to  tne  up  position. 

4.  Spin  up  tne  REMEX  disS  Dy  placing  tne  STOF/START 
switcn  located  on  tne  upper  left  panel  to  START.  Tne  green 
light  over  this  switcn  will  go  out. 

5.  Turn  on  all  CRT's. 

b.  Toggle  tne  RUN/HALT  switcn  on  tne  iCS-80  front  panel 
to  RUN. 

V.  Press  tne  master  RESET  switcn  on  tne  iCS-80  panel 
in.  This  generally  requires  more  than  one  RESET  (normally 
tnree  or  four).  Tne  indicator  of  a  good  RESET  is  tnat  all 
CRT's  are  printing  stars  and  that  the  green  lignts  over  cotn 
tne  START/STOP  switcn  and  tne  A  tfRITE  PROTECT  switcn  of  tne 
REMEX  are  on. 

With  tne  power  applied,  tne  next  step  is  to  load  tne  CP/M-86 
operating  system: 
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1.  Place  a  system  aisle  in  tne  REMEX  arive  E  (leftmost 
floppy  drive)  label  up  and  close  tne  door. 

2.  From  the  CRT  connected  to  tne  master  board  (tr.e  one 
witn  tne  'necropolis  interface  cable),  type  "u".  Tnls  win 

activate  tne  INTEL  957  monitor. 

3.  Enter  tne  command  "GFFD4:4".  Tne  dlsff  in  drive  B 
will  be  accessed  and  approximately  one  to  two  minutes  later 
tne  operating  system  will  respond  witn: 

ENTER  CONSOLE  NUMBER 

4.  Respond  witn  tne  numDer  on  tne  front  panel  or  tne 
CRT.  Tne  next  request  will  be: 

ENTER  LOGIN  DISK 

5.  Respond  witn  tne  desired  disk.  Tnis  will  be  tne 
only  dislc  that  you  will  be  permitted  write  access  to. 

S.  Tne  master  board  is  now  operational.  To  activate 
tne  remaining  boards,  first  locate  any  lisk  irive  tdat 
contains  tne  following  files:  LDSOOT.CMD ,  203T.CMD, 

CPMSLAVE.SYS ,  and  LDCPM.CMD.  men  type  tne  commands 
"LDBOOT"  and  "LDCPM"  from  tnat  drive.  Next,  type  ”u"  from 
any  uninitialized  board  to  activate  its  957  monitor.  Enter 
the  command  "GEEifE  :452fc" .  As  with  tne  master  Doard,  you  will 
be  queried  for  a  console  number  and  login  disk.  Reply  as 
with  tne  master  board. 

C.  DE-ACTIVATING  THE  SYSTEM 

1.  Ensure  tnat  no  floppy  disks  are  in  tne  REMEX  ana 
tnat  all  users  nave  finished. 
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2.  Press  In  tne  master  RESET  button  on  tne  1CS-90 
cnassis . 

3.  Place  tne  RON/HALT  switcn  on  tne  front  panel  of  tne 
iCS-80  cnassis  to  tne  HALT  position. 

4.  Turn  off  tne  Mlcropoiis  ais£  unit. 

5.  Place  tne  STOP/START  switcn  of  tne  REMEX  disK  In  tne 
STOP  position.  Tne  green  lignt  over  tne  switcn  will  go  out. 
Vhen  the  lient  comes  oacs  on  tne  disx  nas  stopped.  Vhen 
tnis  occurs,  turn  tne  REMEX  power  switcn  to  OFF. 

6.  Turn  tne  power  off  to  tne  iCS-80  cnassis. 

?.  Turn  off  all  CRT's. 

D.  CREATING  A  SYSTEM  DISK 

1.  First,  format  tne  diss.  Tnis  win  nave  to  De  done 
on  a  CP/M  compatiDle  system  as  tne  AEGIS  system  currently 
nas  no  formatting  routine. 

2.  Activate  tne  system  as  described  in  Section  E  aDove. 
Place  tne  formatted  dist  in  tne  REMEX  floppy  drive  5. 

3.  Locate  any  drive  witn  tne  following?  files: 
LDCOPY.CMD,  RMXLDR.CMD,  CPM.SYS,  and  PIP.CMD. 

4.  Issue  tne  command  "LDCOPY  RMXLDR.CMD"  from  tnis 
drive.  lou  will  be  queried  as  to  vnicn  drive  to  write  to. 
Respond  witn  "b”  . 

5.  Finally,  issue  tne  command  "PIP  B: =F :CFM .S YS "  (Note 
nere  tnat  ’*?"  was  an  arbitrary  cnoice,  as  any  drive  witn  tne 


5.  Tou  now  nave  a  system  disit.  It  car  ce  tested 
following  tne  activation  procedures  described  in  Section  if 
above. 

E.  MAINTENANCE  UTILITIES 

Tne  system  currently  contains  maintenance  utilities  for 
tne  bubble  memory,  tne  P.EMEX  Data  Warencuse  ,  and  tne 
Micropolis  disx  system.  Tnese  are  described  below. 

1 .  Bubble  Memory 

Tnere  are  two  system  utilities  for  raintenanre  of 
tne  bubble  memory:  DIAG86M.CMD  and  MBB90FMT.CMD.  BIAGB6M  is 
a  self  test  of  tne  Dubbie  and  requires  nc  user  input  otner 
tnan  tne  command  "DIAG86"  to  activate  it.  Any  faults 
occurring  during  tnis  cnee*  are  reported  to  tne  console. 
MBE80FMT  is  used  to  format  tne  nubble  for  a  CP/M 
environment.  Tne  user  win  be  astced  to  enter  tne  case 
address  of  tne  controller.  Respond  witn  "b'e'fclfc’P".  Tne 
formatter  will  tnen  format  tne  bubble  memory. 

2.  REMEX  Di sic  Drive 

Two  routines  are  also  available  for  tne  REMEX: 
RMXMAI\T.CMD  and  RMXEORMT.CMD.  Before  eitr.er  of  tnese 
routines  can  be  successfully  executed,  tne  local  RAM  of  tne 
board  executing  tnem  must  ce  made  available  to  tne  MULTIBUS 
as  tnese  routines  were  not  written  to  pass  information 
tnrougn  tne  common  memory.  Therefore,  Jumper  E112-E114  must 
be  removed  prior  to  execution.  RMXMAINT  is  menu  driven  witn 


nine  available  functions.  Select  the  function  from  ere  list 

at  tne  console  ana  enter  tnat  numoer.  Since  tnese  routines 

are  carried  out  Dy  tne  firmware  of  tne  REMBX  controller  no 

otner  user  input  is  required.  P.MXFORMT  will  format  tne 

REMEX  for  tne  CP/M  environment.  You  will  oe  queried  as  to 

wnicn  ”nead"  of  tne  disK  to  format.  Tne  nead  to  CP/M 

logical  device  is  siven  in  tne  following  list: 

Head  0  Drive  D 

Head  1  Drive  E 

Head  '2  Drive  F 

Head  3  Drive  3 

Select  tne  desired  nead  numoer  and  enter  it.  So  furtner 
inputs  are  required.  T ou  will  oe  notified  at  tne  console 
wnen  tne  formatting  is  complete.  Restore  jumper  E11H-E114 
after  completing  all  desired  maintenance  on  tne  REMEX. 

3 .  ^1  cropoli s  Dl.sK  System 

Tne  Mlcropoils  nas  a  single  menu-driven  maintenance 

program,  MICMAINT.CMD.  Tnis  program  must  oe  executed  only 

from  tne  coard  containing  tne  Micropolis  interface.  Prior 

to  runnin?  it,  ensure  tnat  all  otner  system  users  are  logged 

into  a  non— Micropolis  lisle.  Tne  Micropolis  "nead"  number  to 

CP/M  logical  disK  is  given  celow: 

Head  0  Drive  H 

Head  1  Drive  I 

Head  2  Drive  J 

Head  3  Drive  5 

Head  4  Drive  I 

T.nere  are  two  types  of  commands  in  tne  menu:  initialization 
and  formatting.  Tne  initialization  commands  prepare  tne 


dise  for  use  ana  verify  that  mere  are  no  surface  defects. 
Tne  formatting  commands  prepare  tne  dise  for  tne  G?/M 
operating  system.  If  it  is  desired  to  run  a  initialization 
type  of  command,  six  values  will  oe  requested.  These  values 
are  described  below. 

a.  Physical  Address  cf  Logical  Sector  fc :  This 

allows  for  a  variety  of  logical  sector  mappings  on  tne  disc 
itself.  In  tnis  system  nowever,  this  value  is  ~urrently  2 
and  tnis  snould  be  tne  response  used. 

b.  Sector  Seew  Factor:  Tnis  enables  tne  sector 

address  to  oe  physically  shewed  on  tne  ise.  Currently,  tne 
CP/M  operating  imposes  its  own  see*  factor  and  tnis  value  is 
also  set  to  0. 

c.  Location  of  tne  Spare:  Tne  Micropolis  nas  c 

sector  sparing  capability.  If  a  Dad  sector  is  found  during 

initialization,  tne  spare  can  be  written  ir.  tne  bad  sectors 

place.  Until  a  bad  sector  is  noted,  tnis  value  is  24.  Tnis 
will  write  tne  spare  sector  at  tne  end  of  tne  trace  (sectors 
0-23  are  tne  only  ones  accessible  by  CP/M). 

d.  Dise  Head  Number:  Respond  witr.  tne  desired 

head  number  from  tne  list  given  above. 

e.  Starting  Trace:  Tne  “icropolis  nas  5 50  total 

traces  per  bead,  numbered  from  0  to  579.  Enter  the  desired 
starting  trace  number. 

f.  Ending  Trace:  Enter  tne  iesirei  ending  trace 

number.  Tne  selected  command  will  be  executed  on  all  traces 


Between  the  startine  number  and  ending  number. The  format 
commands  only  require  the  last  four  entries  from  the  list 
above  with  the  same  conditions.  All  format  or  initialize 
commands  should  be  followed  witn  the  correspond  inf?  verify 
format/verify  initialization  command.  Tnese  reouire  tne 
same  entries  as  for  tne  original  command  and  ensure  that  tne 
dis£  function  selected  nas  seen  properly  carried  out. 
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APPENDIX  b 


PROGRAM  LISTING  OF  MICMAINT.A86 


Program  Name 
Da  te 

Written  by 
For 

Advisor 

Purpose 


PICMAINT  .AB6 
9  April  195:3 
Marx  L.  Perry 

Tftesis  (AEGIS  Modeling  Group' 

Professor  Cotton 

Tnis  routine  enables  tne  initialization 
am  formatting  functions  to  be  carried  out 
for  tne  Micropolis  Distc.  It  is  completely 
menu-driven  and  explanatory  ir.  nature. 


**9  99*‘*V**V9  *****  ****** 


EQUATES  TABLE 


csee 

org  100n 


MISCELLANEOUS  EQUATES 


cr 

equ 

0dn 

If 

equ 

0ati 

wip 

equ 

lan 

be 

equ 

? 

EQUATES  FOR  825i)  PIO 


port® 
porta 
port  b 
portc 

mode_2_0_out 

•  — 

equ 

equ 

equ 

equ 

equ 

Seen 

0c6n 

0can 

0c  c  n 

0cen 

; command  port 
t bi-directional 
foutput  port 
;  control/status 
Jmoae  for  P2bb 

• 

f 

BDOS 

FUNCTION  EQUATES 

} 

bdos 

equ 

224 

Jbdos  interrupt 

bdos  0 

equ 

0 

Jret  to  ~cp 

bdos_l 

equ 

1 

Jcnar  input 

odos_9 

equ. 

9 

»bdos  string  output 

bdos_10 

•  -  - 

equ 

10 

; bdos  buffer  input 

MI CROPOLIS  EQUATES 


rs  trb 

on 

equ 

00001010b 

jread  signal 

rstrb 

1°  rr 

equ 

00000010b 

jread  signal  off 

ws  trb 

_on 

equ 

00000110b 

Jwrite  signal 

102 


vs  trb_o  ff 

eau 

000000ieb 

; write  signal  off 

mic_sta  t 

equ 

00000000b 

{status  signal 

mic_cmd 

squ 

00000000 d 

; command  signal 

mic~data 

equ 

0000000  lb 

{data  signai 

strb_on 

equ 

00000010b 

{input  iatcr.  sigrai 

strb_of f 

equ 

000000  lib 

{latch  signal  off 

acK_on 

equ 

00000100b 

{output  signai 

acs_of f 

equ 

00000101 D 

{output  signal  off 

en_sei 

equ 

00000010b 

.'select  enable 

stndrd 

equ 

00010110b 

{normal  reset 

irdy_ma  st 

eau 

00000001b 

{input  ready 

ordy_mass 

equ 

00000010b 

{output  ready 

busy~masK 

eau 

00010000b 

{ busy 

mass 

equ 

10100000b 

{attn  or  area 

a  t  tn_masfc 

equ 

10000000b 

{attn  only 

dreq_mastc 

equ 

00100000b 

{ d  re  q  only 

iritiai_cmd 

equ 

11010001b 

{initialize  era 

veri fy_cmd 

equ 

11010101b 

{verify  cmd 

ini t_ve r_cmd 

equ 

11011001b 

{initialize  and 

{verify  cmd 

forma  t_cmd 

equ 

01000111b 

{formatting  cmd 

ver_t'orm_cmd 

equ 

01000011b 

{verify  the  format 

> 

;  Yain 

• 

Program 

» 

cali 

mic_init 

{initialize  disic 

main: 

mov 

cl, bdos_9 

{output  first  menu 

mov 

dx, offset  menu_l 

int 

bdos 

mov 

c l , bdos_l 

int 

bdos 

{get  user  option 

mov 

an  ,0n 

{clear  an 

cmp 

ai,  '0' 

{valid  entry? 

Jb  main_l 

cmp 

ai,  '5' 

Jbe 

main_2 

main_l : 

mov 

cl  ,bdos_9 

{output  error  ms? 

mov 

dx, offset  err_l 

int 

bdos 

Jrrp 

main 

{and  start  over 

mam_2 : 

su  b 

ai  ,30n 

{adjust  to  binary 

mov 

cmd  type,ai 

{store  command 

add 

ai ,  ai 

{aaj  for  tbi  entry 

mov 

ox, offset  Jmp_taoi 

_l{get  Jump  vector 

add 

bx  ,ax 

mov 

cx ,  [ bxj 

J^P 

cx 

{and  Jump  to  ioc 

s_snd : 

mov 

ci , bdos_9 

{end  of  session 

mov 

ix, offset  end_Tsg 

{msg 

103 


{re-enable  ir.t 
{return  to  ccp 


descr : 


descr  l : 


in  ver  dsx: 


fm  ver  ds>r: 


frr_ver_dsi_l : 
main  3: 


int  Odos 
s  ti 

mov  ci,Oaos_0 
mov  dl,00n 
int  odos 

mov  al,0 

mov  ox, offset  Jnp_taoi 

mov  dx ,  [oxj 

mov  cl»odos_9 

pusn  ax 

pusn  ox 

int  odos 

mov  ci,edos_l 

int  odos 

pop  ox 

pop  ax 

inc  ai 

cmp  al ,7 

je  main 

add  ox, 02 

Jmp  lescr_l 

call  log_sece_num 
call  sKtflnum 
call  spar_loc 

call  nead_num 

mov  ci,t>dos_9 

mov  dx, offset  msg_b 

int  odos 

call  trx_num 

mov  oeg_trs_num,dx 

mov  cl,bdos_9 

mov  lx, offset  msg_b 

int  odos 

call  tric_num 

cmp  lx , oes_trK_num 

jae  fm_ver_ls£_l 

xcng  ix , oeg_trK_num 

mov  end_trx3au^~(ix 

mcv  cl,0dos_9 

mov  lx, offset  menu_2 

int  odos 

mov  cl,01os_l 

int  Odos 

mov  an,00n 

cmp  a l ,  '0 ' 

JO  main_4 
cmp  ai , '4 ' 


{initialize  count 
^{output  description 


is ave  tne  registers 


{wait  on  user 

{restore  tne  regs 

,‘test  for  end  of 
{description 
{if  end  start  over 
{else  get  next  msg 
{and  output  it 

{get  logical  sec  0 
{get  stew  factor 
{get  loc  of  spare 

{get  distt  nead  num 
{output  prompt 
{for  beginning 
{tracx  numoer 
{get  it 
{store  it 
{output  prompt 
{for  ending 
{tracx  numoer 
{get  it 


{output  second  menu 


{get  user  option 

{clear  an 
{valid  er. try? 


jbe 

main_P 

mam_4: 

mov 

c l ,  bdos_y 

Joutput  error  mss' 

mov 

dx  ,  of fs  et 

err_l 

int 

bios 

jmp 

main_3 

Jand  start  again 

main_5: 

sub 

a i  ,30a 

5aa jus t  to  binary 

add 

ai  ,al 

Jadj  for  tbl  entry 

mov 

ox,  off  set 

jmp_ta oi_3; get  jump  vector 

add 

ox  ,ax 

mov 

cx,  [bxj 

Jnp 

cx 

rev_ent : 

call 

rev 

Joutput  tne  review 

j-np 

main_3 

Jseconi  menu  again 

cng_ent : 

call 

cfi  s 

jeet  tne  cnange 

J^P 

main_3 

;  second  menu  again 

e  cmmd : 


mov  cl ,  D4os_y 

mov  ax, offset  warn 

irt  Dios 

mov  cl ,  Ddos_l 

1st  bdos 

cmp  al ,  'y  ' 

j  z  e_cmmd  1 

cmp  ai , '  r"'’ 

jz  e_cmmd_l 

jmp  main 

e_cmmd_l :  cmp  cmd_type,2 

ja  e_cmmd_2 
call  mlc_convi 
jmp  e_cmmd_3 

e_cmmd_2:  call  mic_conv2 

mov  cl,bdos_3 

mcv  dx, offset  msg_y 

int  bdos 

e_cmmd_2a:  call  mic_send 

e_cmmd_2o:  call  mlc_status 

test  al,masK 
jz  e_cmmd_2o 
tsst**al  ,a  ttn_masK 
jnz  e_cmmd_2c 
mov  ai,0e5n 
call  mic_data_out 
jmp  e_cnmd_2b 

e_cmmd_2c:  call  mic_busy 

call  mic_irly 
call  mic_data_ln 
cmp  ai,2?n 
Jnz  cmma_err 
Inc  bee  trs  num 


, ‘output  warning 


;?et  response 


jstart  over 
jcnecK  for  command 

Jprepare  parameters 


Joutput  messaee 


Jsend  parameters 
Jattn  cr  creq? 


;  a  1 1  n  ? 

>musi  be  drey 
Jsend  E5a 

jwait  on  cntrl 

Jaet  term  byte 
,'success? 

; no ,  tnen  error 
»any  trades  left? 


e  cmmd  3: 


e  cnrr  d  3a 


e  cmmd  3b: 


mov  dx ,  ceg_t rK_num 
cmp  ax ,end_t r*_num 
ja  e_cmmd_3b 

mov  parm2,dl 

mov  parm3,dn 

jmp  e_cmmd_2a 

mov  cl,blos_9 

mov  dx, offset  mS2_ltf 

int  Ddos 

call  mic_send 

call  m  i  c  _  bu  s  y 

call  mic_irdy 

call  mic”data_in 

cmp  a l 

jnz  cmmd_err 

inc  oeg_trtc_num 

mov  ax, oeg_tr£_num 

cmp  ax,ena  tr!c_num 

ja  e_cmmd_3b 

mov  parm2,dl 

mov  parm3,dn 

jmp  e_cmmd_3a 

mov  ci,bdos_9 

mov  dx, offset  msg_ll 

int  odos 

jmp  main 

mov  err_coae,al 

call  proc_err 

Jmp  main 


{finisned  nere 
;so  start  over 
{adjust  parms 


{output  message 


{send  first  parms 
{wait  for  cntrl 

;<?et  term  status 
Successful? 

;  now  error 
{more  tra~Ks? 


♦adjust  parm2 
♦  ana  parm3 

{output  success 
{message 


jmp  main  {ana  start  over 

cmmd_err:  mov  err_coae,al  {save  error 

call  proc_err  {process  it 

Jmp  main  { start  over 

{Subroutine:  proc_err 

{Entry  conditions:  an  error  nas  occurred  in  tne  execution 
{  of  a  command  on  tne  diss 

{Exit  conditions:  'proc_err_ta cl '  nas  been  updated 
{Registers  altered:  none 

{Subroutines  called:  save , restor, bin_dec ,dec_a sc ,mi c_cusv , 
{  mic_irdy,mic_data_in 

{Description : 

{  Tnis  routine  provides  as  console  output 

{tne  details  of  an  error  condition  as  issued  cy  tne 
;iisK  controller. 


prcc_err : 


proc_er  r_l 


call  save 
mov  1 1 ,0 
call  mlc_ousy 
call  mic_irdy 
call  nlc_data_in 
inc  bi 
cmp  01, ti 


{save  all  registers 
{set  up  counter 
{wait  or.  cntrl 


{get  dux  status 


{is  it  tit n  one? 


je  proc_err_2 
j t p  proc_err_i 
proc_err_2:  mov  di.al 

nov  1  n.ztfn 

call  oin_dec 

call  iec_asc 

mov  asc_sec,dl 

mov  asc_sec_l,on 

mov  asc_s ec_2 , cl 

nov  dl.neal 

mov  dn  ,fc'0n 

call  Din_dec 

call  decease 

mov  asc_lx_dsad ,dl 

mov  asc_a x_nead_l , tn 

mov  asc_dx_nead_2 , bi 

mov  dx , De£_t r£_num 

call  Din_dec 

call  aec_asc 

mov  asc_trx,dl 

mov  asc_trx_l , bn 

mov  asc~trx_2,bl 

nov  di,err_code 

mov  dn,£0n 

call  bin_dec 

call  decease 

mov  asc_err_c,dl 

mov  asc~err_c_l , ca 

mov  asc~err_c~2 , cl 

mov  cl,bdos_9 


me  v 

dx  .offset 

procerrtaci 

i  nt 

cdos 

mov 

an ,  fc’Zn 

jciear  a  r. 

me  v 

al.cmd  type 

add 

al  »al 

Jadjust  f o m  table 

mov 

bx  .offset 

jnp_ta ci_4 Jget  jump  vector 

add 

bx ,  ax 

mov 

dx ,  l  bxj 

mov 

c l ,  tdos_y 

Joutput  it 

int 

bdos 

mov 

c 1 ,  bdos_9 

Jrest  or  table 

mov 

dx  .of fset 

pro  cerrta  til 

int 

bdos 

mov 

c l , baos  _1 

Jwai t  on  user 

int 

bdos 

Jto  read  it 

call 

res  t  or 

jrestore  registers 

ret 
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; Subroutine:  ml c_ busy 
JEntry  conditions:  none 

jSxit  conditions:  disic  controller  nas  issued  'not  busy' 


Jput  sector  in  ll 
; clear  dn 
Jconvert  it 

; store  it 


Jget  nead  number 
; clear  dr. 
Jconvert  it 

Jstore  it 


Jeet  tracx  number 
; convert  it 

Jstore  it 

j?e t  error  c ode 
Jciear  nn 
jeonvert  it 

Jstore  it 


Joutput  end  type 


1Z7 


♦  sier.al 
♦Registers  altered:  none 

♦  Subroutines  called:  mic_status 
♦Description: 

;  Tne  executing  program  will  wait  nere 


♦until  tne  disic 
• 

controller  issues  tne 

'r.ot  busy'  signal 

J 

mic^ousy : 

pusn  ax 

♦‘save  ax 

rric_busy_l : 

call  mic_status 

♦  get  status 

test  al ,  busy_masic 

Jz  mic_busy_l 
pop  ax" 
ret 

♦  busy? 

Subroutine:  mic_iriy 
Entry  conditions!  none 

Exit  conditions:  disfc  controller  nas  issued  'irny' 

signa 1 

Registers  altered:  none 


♦Subroutines 

called:  mic  status 

♦Description : 

• 

f 

Tne  execution  of  tne 

program  will 

Jwait  nere  un 
• 

til  'irdy'  is  issued  by 

tne  controller 

1 

mi c_irly : 

pusn  ax 

♦save  ax 

mic_irdy_l : 

call  mlc_status 

♦get  status 

test  ai,irdy_ma5K 

Jz  mic_irdy_l 

♦  ready? 

pop  ax'. 

♦  restore  ax 

ret 

; ready  now 

Subroutine:  mic_ordy 
Entry  conditions:  none 

Exit  conditions:  disk  controller  nas  issued  tne  'oray' 

signal 

Registers  altered:  none 
Subroutines  called:  mic_status 
Eescription : 

Tne  execution  of  tne  program  will  wait 
nere  until  'ordy'  is  issued  by  tne  controller. 


mic_ordy : 

pusn  ax 

Jsave  ax 

mic_ordy_l : 

call  mic_status 

Jeet  status 

test  al ,  ordy_ma  sjc 

♦  ready? 

Jz  mic_ordy_l 
pop  ax- 
re  t 

Jnot  yet 

Subroutine:  mic_send 

Entry  conditions:  parameters  are  calculated  and  in 

tne  byte  variaoles 

Exit  conditions:  parameters  and  command  nave  been  sent 
Registers  altered:  none 

Subroutines  called:  save ,restor,mic_busy ,mic_orly, 

mic_irdy,mic_cmd_out , mic~aat  a_out 

Descripti on : 

Tbe  command  byte»  six  parameter  bytes 
and  tne  go  byte  found  in  tne  data  area  are  sent  to 
tne  list  controller. 


ic_send: 


lc_send_] 


call  save 
call  mic_ousy 
call  mic_ordy 
call  mic_cmd_out 
mov  dx, offset  parml 
mov  dl,0 
call  mic_bu$y 
call  mic_ordy 
mov  al ,  [bxj 
call  mic_data_out 
inc  bx 
inc  11 
cmp  11,7 
jt  mic_send_l 
call  restor- 
re  t 


Jsave  registers 
; wai t  for  cntrl 

jsend  out  cmi 
Jsend  parameters 
Jcounter 
Wait  for  cntri 


Jget  parm 
Jsenl  it 


Jdone? 


j  W  'IX 

call  restor-  jrestore  registers 

re  t 

unroutine:  mic_cmd_out^ 

ntry  conditions:  'ordy'  sienal  nas  Deen  issued  Dy  tne 

disic  controller  and  'cmd_byte' 
contains  tne  command  to  be  sent, 
xi  t  conditions:  none 
egisters  altered:  none 
ubrcutines  called:  none 
escription : 


sent 


mic  cmd  out: 


tion : 

Tne  command  in  tne  Dyte  variable  'cmd_byte' 
tn  mo  iis^  controller- 


pusn  ax 

mov  al,cmd_byte 
out  portafal 
mcv  al,mic_cmd 
out  porte, al 
mov  al,acs_on 
out  porte, al 
mov  al,wstrb_on 
out  portb.al 


Jsave  ax 

Jto  bi-directional 
Jenable  cmd  line 

jactivate  output 
; nuf fe r 

; pulse  tne  write 
;  e.  t  r  o  o  P 


mov  al,wstrb_off 
out  portb.ai 

mov  ai,acff_off  {de-activate  tne 

out  porte, al  {output  buffer 

pop  ax 
ret 
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•Subroutine:  mi c_aata_in 

{Entry  conditions:  'irdy'  signal  nas  been  issued  cv  tne 

;  disK  controller 

•Exit  conditions:  al  contains  data  byte 

{Registers  altered:  al 

•Subroutines  called:  none 

{Description : 

*  A  byte  of  data  is  input  from  tne  ^icrcpolis 
idisK  unit. 

? 

mic  data  in: 


mov 

al  ,mic_data 

{ ena  bl 

e  tne  data 

out 

porte ,al 

mov 

al ,  rs  tr  b_on 

;  turn 

tne  reac 

out 

port  b  ,a  1 

{on 

no  v 

al , s  trc_on 

* i a  t  cn 

tne  data 

out 

porte  ,al 

mov 

al  ,  strb_of f 

out 

porte  ,al 

mov 

ai,rstrb_off 

;  turn 

off  tne 

out 

port  o  ,ai 

{ read 

signal 

in 

al .porta 

{ bring 

in  data 

re  t 
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•  Subroutine:  mic_data_out 

{Entry  conditions:  'ordy'  signal  nas  been  issued  by  tne 
;  distc  controller  and  al  contains  value 

•  to  be  sent. 

•Exit  conditions:  none 
{Registers  altered:  none 
{Subroutines  called:  none 
{Description : 

{  A  byte  of  data  is  output  to  tne  yicropolis 

{disk:  unit . 

J 

mic  lata  out: 


pusn 

.  ax 

{save  ax 

out 

po  rta  , a  1 

{to  oi-dire~tionai 

mov 

out 

a i ,mic_data 
porte , a  1 

{enable  data  line 

mov 

a l ,acK_on 

{activate  output 

out 

porte ,a l 

{ buffer 

mov 

al ,wstrb_on 

{pulse  tne  write 

ou  t 

port  b ,a 1 

{strobe 

mov  ai,wstro_off 
out  porto, al” 

mov  ai,acK_off  {de-activate 

out  ports, al  ; output  Buffer 

pop  ax  ; restore  value 

ret 

V *  V  if  *  jjc  *  JJC  V  If  ajt  V  *  J?  VV  V  V  V  *  ^  V  W  W  V  W  W  V  V  W  >.t  a*  v  ».«  V  V  VV  V  V  V  W  V  W  V 

Suoroutine:  mic_cor.vl 
Entry  conditions:  none 

Exit  conditions:  parameters  are  set  for  disK  use 
Registers  altered:  none 
Subroutines  called:  save,restor 
Descripti on : 

This  subroutine  prepares  tne  parameters 
required  by  tne  Micropolis  disit  drive  for  verify  or 
initialization  commands. 


mic_convl : 

call  save 

{save  tne  register 

mov  al,cmd_typs 

JcftecK  for  command 

cmp  a l  ,0 

{initial! ze? 

Jz  mlc_convl_l 
cmp  a  1 , 1 

{verify? 

jz  mic_convl_2 

mov  cmd_oyte , init_ver_cmd  {initialize 


J*P 

mic”convl_3 

{and  verify 

mic 

_convl__l : 

mov 

cmd_byt  e , Initial _cma 

{it  was  initialize 

Jdip 

mic_convi_3 

{only 

mic 

_convl_2: 

mov 

cmd~byte, verif y_cmd 

{it  was  verify 

mic 

_convl_3: 

mov 

a  i  ,nead 

{prepare  nead  cum 

mov  cl, 4 
sal  al ,ci 
mov  parml,al 

mov  dx ,  te*_tr£_num  {set  up  parameter 


mov 

mov 

parm2 ,d 1 
parm.5 ,4h 

?2  and  3 

mov 

al , iog_sec? 

{set  un 

parameter 

mov 

parm4,ai 

?4 

mov 

al  ,si£w_fac 

{set  up 

pa  rams  ter 

mov 

parmP  ,al 

;t 

mov 

a  1  .spar 

{set  up 

pa  rame  ter 

nov 

parme ,al 

{6 

mov 

*o_byte ,8 

{set  up 

so  byte 

call 
re  t 

.  restor 

{ restore 

resis ters 

J  WV ** ******  ****************  ********  ** 

{Subroutine:  mic_conv2 
{Entry  conditions:  none 

{Exit  conditions:  oarameters  are  set  for  disit 
{Registers  altered:  none 
{Subroutines  called:  save,restor 


?Description : 

;  Tnis  subroutine  prepares  tne  parameters  for 

; tne  “icropolis  list  drive  for  format  and  verify  format 


; commands . 

y 

mic  ccnv2: 

call  save 
mov  ai,cmd_type 

,'save  tne  reps 

emp  ai,3 

Jz  mic_conv2_l 

,*  f  o  rma  t  V 

mov  cmd_byt e , ver_f orm 
Jmp  mic_conv2_2 

_cmd;must  be  verify 

mic_con v2_l: 

mov  omd _ byte , forma t_c 

md 

mi c_con  v2~2: 

mov  ai,nead 

Jset  parameter  1 

mov  c l , 4 
sal  al.ci 
mov  parnl  ,al 

Jadjust  position 

mov  dx , beg_trx_num 

Jset  parameter  1 

mov  parm2,il 
mov  parm3,d.u 

;  a  r.d  2 

mov  parm4,0 

^starting  sector 

mov  parm5,24 

Jprocess  24 

mov  parm£>,0 
mov  go_byte,0 

; not  used 

call  restor 
ret 

^restore  repisters 

Subroutine:  mic_inlt 
Entry  conditions:  none 

Exit  conditions:  disfc  nas  been  initialized 
Registers  altered:  ax.cx 
Subroutines  called:  mic_status 
Description : 

Tnis  subroutine  resets  end  initializes  tne 
Yicropolis  dlsic  drive  and  tne  8255  parallel  i  >o  port. 

If  tne  reset  attempt  fails,  tne  proerar  is  aborted  and 
tne  user  is  returned  to  tne  operating  system. 


ini  t : 

ell 

idisatie  mas.<aDie 
; i nterrupts 

mov 

a  1 ,mode_2_0_ou  t 

Jinitialize  to  mode 

out 

porte ,al 

,* 0  and  2 

mov 

a  1 ,ac*_of f 

^insure  acknowledge 

out 

porte ,al 

> is  off 

mov 

ai  ,strb_of f 

^insure  strobe 

out 

porte  ,al 

? i s  off 

mov 

ai  ,en_sei 

5set  select  and 

ou  t 

port  d ,al 

Jenaoie 

mov 

c  x ,  1 0 

Jwait  1  second 

ini t_l : 

mov 

ax ,27777 

112 


mic_init_2:  dec  ax 

Jnz  nic_init_2 
dec  cx 

jnz  mic_init_l 

call  mic  status  ;eet  tne  status 


cmp  al.stndrd 

jz  mic_init_;5  itnen  return 

mov  cl,bdos_9  .output  error 

mov  4i, offset  micrst_err»message 
int  bdos 

mov  cl, 00  ;anc  return  to 

mov  41,lf(!  *’o/s 

int  bios 

mic_init_3:  ret 
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Subroutine:  mic_status 
Entry  Conditions:  none 

Exit  Conditions:  al  contains  status  of  lisK 
Registers  altered:  al 
Subroutines  called:  none 
Description: 

Tnis  subroutine  reads  and  returns  tne  current 
value  of  tne  Micropolis  disic  controller's  status  port. 


nic_sta  tus : 

mov  ai,nic_stat 
out  ports. al 
rrov  al,rstro_on 
out  portb.al 
mov  al,stro_on 
out  porte, al 
mov  al,strb_off 
out  pcrte.al 
mov  al  ,rstr b_of f 
out  portb.al 
in  al  .porta 
ret 


.'enable  star  line 
,'turn  on  read 
Jlatcn  tne  status 

Jturn  off  read 
bring  in  status 
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Subroutine:  cne 
Entry  conditions:  none 

Exit  conditions:  desired  value  is  cnanged  to  new  value 
Registers  altered:  none 

Subroutines  called:  save  ,restor,log_sec0_num,sicw_num, 

s par_loc ,  nead_num  ,  t ric_nur 


Description : 

Tnis  subroutine  allows  tne  user  to  cnange 
a  value  tnat  nas  been  previously  specified  by  a  call  to 
tne  appropriate  routine. 


cag: 


call  save 


Jsave  registers 


cmp  cmd_type,i 
Ja  cng_4 

che_l :  mov  ci,bdos_9 

mov  dx, offset 
int  bdos 
mov  cl,bdos_l 
int  bdos 
mov  an.tfn 


cmp 

al.'e' 

jb  cng_2 

cmp 

ai ,  5 

J  be 

c  n  g_3 

cng_2: 

mov 

c 1 ,  bdos_9 

mov 

dx  .offset 

int 

bdos 

Jmp 

eng  1 

cng_3 : 

sub 

a  1 ,365ft 

add 

al  ,al 

mov 

bx ,  offset 

add 

dx  ,ax 

mov 

cx ,  [ bxj 

J^p 

cx 

c  ng_4  : 

mov 

C 1 , DdOS_9 

mov 

dx. offset 

int 

odos 

mov 

cl  ,bdos_l 

int 

bdos 

mov 

an  ,4Jn 

cmp 

al,'0' 

jt  eng  5 

cmp 

al ,  2 

J  be 

cne_5 

cng_5: 

mov 

c 1 , bdos  _9 

mov 

lx , offset 

int 

bdos 

j*P 

eng  4 

cng_6: 

SU  D 

.  ^  J 

al  ,30n 
~  1 

mov  bx, offset 
add  ox, ax 
mov  cx,  LdxJ 
Jmp  cx 

cng_7:  call  iog_sec4J 


- • 

Jmp  cng_13 

c.ng_S: 

call  s£w_num 

Jmp  cng_l3 

cng_9: 

call  spar_loc 

jmp  cng_l3 

cng_10: 

call  bead_num 

jmp  cng_13 

cng_ll : 

mov  ci,bdos_9 

Jtwo  diff  opts 
Jdepending  on  crd 
J output  menu 

menu_3 

Jget  user  option 

Jclear  an 
Jvaiid  entry? 


J  output  error 

err_l 

Jand  start  over 
Jconvert  to  Dinary 
Jadjust  for  table 
Jmp_tabl_5Jget  jump  vector 


Joutput  menu 

menu_4 

Jget  option 

>  clear  ar. 
Jvaiid  entry? 


Joutput  error 

err  l 


Jconvert  to  binary 
Jadjust  for  table 
jmp_ta di_5 jget  jump  vector 


num  Jget  new  logical 

ise^tor  number 
Jget  new  sicew 
;  factor 

Jget  new  spare 
J location 
Jget  new  nead 
;  number 

Jget  new  beginning 


ftracK  number 


mov  dx, offset  mse_5 
lr.t  fcdos 
call  trs_num 
cmp  dx,end_tric_num 
j  ce  cng_l la 
xcng  dx ,  end_tric_num 
cne_lla  :  mov  beg_trK~num ,dx 

jmp  cng~13 

cng_12:  mov  ci,bdos_9  {get  new  ending 

mov  dx, offset  msg_5  {tracsc  number 

lnt  bdos 
call  trx_num 
cmp  dx,  beg_tr>c_num 
jae  cng_12a 
xcng  dx ,  beg_trx_num 
cn&_12a:  mov  end_trff_nu.m  ,dx 

cng_i3:  call  restor  {restore  registers 

ret 

•  ???»!!<  WW  WWWWV  W  W  W  WWV  W  W  W&WW  W  W  ?>St  V9 

{Subroutine:  rev 
{Entry  conditions:  none 
{Exit  conditions:  none 
{Registers  altered:  none 

{Subroutines  called:  save .restor, bin_dec ,dec_asc 
{Description : 

{  Tnis  subroutine  prints  out  at  me  console  a 

{complete  tabulation  of  user  supplied  input  and 

{returns  to  tne  calling  program. 

• 
f 

re  v : 

call  save  {save  ail  regs 

mov  dn,P£?n  {convert  logical 

mov  di,iog_sec£  {sector  to  asc 

call  oin_dec 
call  decease 

mov  asc_log_5ec0,di  {store  it 

mov  asc~iog~secfc5_l , on 

mov  asc~log_sectf_2 , bl 

mov  dn,00n  {convert  stew 

mov  di,sKw_fac  {factor  to  asc 

call  bin_dec 

call  lec_asc 

mov  asc_sffw_fac,di  {store  it 

mov  asc~s£v~f ac_l , bn 
mov  asc_s Kw_f ac_2 ,  bl 

mov  dn,e{?n  {convert  location 

mov  dl,spar  {of  spare  to  asc 

call  bin_dec 
call  dec_asc 

mev  asc^spar.di  {store  it 

mov  asc_spar_l , bn 
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rev_l : 
rev  2 : 


mov 

asc_spar_2 , bl 

mev 

dn  ,00n 

mov 

d 1  ,nead 

call 

bin_dec 

call 

dec_asc 

mov 

asc_nead ,di 

mev 

asc~nead_i , bn 

mov 

asc_nead_2 ,  bl 

mov 

dx, beg_tr£_num 

call 

bln_dec 

call 

decease 

mov 

asc_  Dee:_tr£  ,dl 

mov 

asc~beg~tr£_l , 

bn 

mov 

asc~Dee~t  rc_2 , 

bl 

mov 

dx , end_tr£_num 

call 

bin_dec 

call 

dec~as  c 

mov 

asc_end_trs,dl 

mov 

asc_end_trs_l , 

bn 

mov 

asc_end~trK~2, 

bl 

mov 

cl.idosj* 

mov 

dx, offset  rev 

ta  bl 

int 

Ddos 

mov 

an,0 

mov 

al ,cmd_type 

add 

al.al 

mov 

bx, offset  jmp_ 

taci 

add 

bx  ,ax 

mov 

dx,  [bxj 

mov 

cl , bdos_9 

int 

bdos 

mov 

cl , bdos_9 

emp 

cmd_type ,2 

ja  re  v_l 

mov 

dx.offset  rev 

tad 

int 

CT 

O 

u> 

rev_2 

mov 

dx, off set  rev_ 

ta  bl 

int 

ndos 

mov 

c  1 ,  bdos_l 

Int 

odos 

{convert  list 
{nead  to  asc 


;  s  t  o  re  it 


{convert  beriming 
{trie  to  asc 

{store  it 


{convert  ending 
{trie  to  asc 

{stcre  it 


{output  command 
{ tyoe 

{clear  an 

{adjust  for  table 
4{get  jump  vector 


{output  command 
{ name 

{output  tne 
{entire  table  new 


{wait  on  user  to 
{read  it 


call  restor  {restore  registers 

re  t 

{Subroutine:  spar_loc 
{Entry  conditions:  none 

{Exit  conditions:  'spar'  contains  value  for  location 
;  of  spare  sector 

{Reeisters  altered:  none 

{Subroutines  called:  save,restor, con_in ,asc_dec ,dec_cin 
{Descri pti cn : 
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;  Ttie  user  is  prompted  for  toe  location  of  toe  spare 

Sector.  Tne  valid  range  is  Z  to  255.  A  nuncer  outside 
;of  tnis  range  results  in  an  error  message  and  anotner 


jprompt.  Tne 

valid  number  is  converted 

to  binary  ana 

Stored  in  tne 

byte  variable  'spar'. 

spar_io  c: 

call  save 

Jsave  all  registe 

spar_lo  c_l : 

mov  cl , bdos_9 

mov  dx, offset  msg_? 

int  bdos 

Joutput  prompt 

call  con_in 

Set  response 

call  asc_dec 
call  aec_oin 

; convert  it 

emp  dx,255 
j be  spar_ioc_2 

Jolt  for  range 

mev  ci,bdos_9 
mov  dx, offset  err_2 
int  bdos 

; out  put  error  msg 

jmp  spar_loc_l 

Start  over 

spar_loc_2 : 

mov  spar.dl 

Store  in  'spar' 

call  restor 
re  t 

Jrestore  register 

J  WWW*  W*  W*  W  WWW  W>WW«WW  VV  JWW  WW  W  »»¥¥»  »???¥???  ***** 

Subroutine:  tr£_num 
jEntry  conditions:  none 

•  Exit  conditions:  dx  contains  a  tracK  number 
{Registers  altered:  dx 

Subroutines  called:  save .restor, con_in ,asc_dec ,dec_Din 
description; 

;  Tne  user  is  prompted  for  a  tracK  number.  Tne 

Jvalid  range  is  0  to  579.  Invalid  input  results  in  an 
jerror  message  and  anotner  prompt.  Tne  valid  number 
; i s  converted  to  binary  and  returned  in  dx . 


trs_num : 
trie  num  1: 


tr*  num  2: 


call  save 

mov  ci,bdos_9 

mov  dx,  offset  msg_4 

i  n  t  b  d  o  s 

call  con_in 

call  asc_aec 

call  dec_bin 

emp  dx,579 

jfce  tr£_num_2 

mov  cl,bdos_9 

mov  dx, offset  err_2 

int  odos 

Jmp  tr£_num_l 

mov  temp_t£,dx 

call  restor 


Save  all  regs 
; output  prompt 

Set  response 
; convert  it 

;ck  for  range 

Joutput  error  msg 


Start  over 
Save  trie  number 
Jrestore  tne  regs 


;  restore  ax 


nov  dx,temp_tlc 
re  t 

VWW?  w  &  w  &  1*  W  V  V  &  &  W  V  &&  &V&  &  W  V  &  &  &&  WWW  &  W  &&  &  V  &  V 

Subroutine:  s£w_num 
Entry  condi tionsJ  none 

Exit  conditions:  's£w_fac'  contains  sector  sicew 

factor 

Registers  altered:  none 

Subroutines  called:  save,restor,con_in,asc_dec,dec_bin 
Description : 

Tne  user  is  prompted  for  a  sector  s*e«  factor. 

Tne  valid  ran?®  is  H  to  23.  A  number  outside  cf  tnis 
ranee  results  in  an  error  message  and  anotner  prompt. 

Tne  valid  number  is  converted  to  binary  and  stored  in 
tne  byte  variable  's£v_f ac  ' . 


$£v_num : 

call  save 

{save  all  regs 

sfcv_num_l : 

mov  cl,bdos_9 

{output  prompt 

mov  dx, offset  msg_3 
int  bdos 
call  con_in 

{get  response 

call  asc~aec 

{convert  it 

call  dec_bin 
cmp  dx,23 

{ck  for  range 

jbe  sKw_num_2 
mov  ci,bdos_9 

{output  error  nsg 

mov  ix.offset  err_2 
int  bdos 


jmp  s£w_r.um_l 

{start  over 

sKw_num_2: 

mov  s£w_fac7dl 

{store  in  'sicw_fac 

call  restor 

{restore  tne  regs 

ret 

j*  J* J*  j* »JC  j*  Xf  Xf  tf  JJt *  Xf.  jjt x/c  V*  W  W *  V V  V  V  V *f  **  **  *  V **  W V V  V ¥* * J?  W S?  V 


, 'Subroutine:  log_sec0_num 
{Entry  conditions:  none 

ifixit  conditions:  'log_sec0'  contains  address  of  logical 
;  sector  0 

•Registers  altered:  none 

{Subroutines  called:  save , res  tor ,con_in ,asc_dec ,aec_cin 
{Descri ption: 

;  Tne  user  is  prompted  to  input  tne  pnysicai  address 

{of  logical  sector  0.  Tnis  number  can  be  in  tne  range  0  tc 
{ 23 .  Tne  input  is  cnecKed  and  an  error  message  results  if 
fit  is  invalid.  Tne  user  is  also  prompted  again  in  tnis 
{event.  The  valid  number  is  converted  to  Dinary  and  stored 
{in  tb.e  byte  variable  'log_sec0' 

log_sec0_num : 

call  save 

log_sec0  num_l:  mov  cl,bdos_9 
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{save  all  regs 
{output  prompt 


mov  dx, offset  msg_2 

int  Dios 

call  con_in 

call  asc_dec 

call  iec~Din 

cmp  lx ,23 

jbe  log_sec0_num_2 
mov  ci,bdos_9 
mov  dx  , offset  err_2 
int  Dios 

jmp  log_sec55_num_l 
log_sec0_num_2:  mov  log_sec0,dl 

call  restor 
ret 


Jget  response 
; convert  it 

;  cic  for  range 

joutput  error  msg 


;st  in  'lessee#' 
jrestore  regs 


JSuoroutine:  neaa_num 
;Entry  conditions:  none 

;Exit  conditions:  'nead'  contains  nead  number 
JRegisters  Altered:  none 

jSutroutines  called:  con_in,  asc_dec,  aec_Din,  save,  restor 
jDescription: 

JTne  user  is  prompted  to  input  a  nead  numDer  in  tne  range 
Jof  45  to  4.  The  input  is  cnecsced  ,it‘  an  invalid  number  is 
Jentered,  an  error  message  is  output  and  the  user  is  again 
jpromptei  for  an  entry.  Tne  valid  numoer  is  converted  to 
Jbinary  and  stored  in  tne  byte  variable  'head'. 


nead_num: 
nead  num  1 : 


nead  num  2: 


call  save 

mov  cl,  Ddos_9 

mov  dx, offset  msg_l 

int  odos 

call  con_in 

call  asc_dec 

call  dec_oin 

cmp  dx,0004h 

joe  aead_num_2 

mov  cl, odos _9 

mov  dx, off set  err_2 

int  odos 

jmp  nead_num_l 

mov  nead,dl 

call  restor 

ret 


Jsave  all  regs 
Joutput  prompt 

Jget  r°sponse 
Jconvert  to  decimal 
Jconvert  to  Dinary 
JcnecK  for  range 

Joutput  error  msg 


Jand  start  ever 
Jstore  in  'nead' 
jrestore  registers 


tf  V  V  V  V  V  V  W  W  V  V  V  V  *  VV  W  V  V  V  ¥  ¥  ¥  ¥  V  ¥  >!»  V  ¥  ¥  ¥  ¥¥  ¥¥  ¥  ¥¥  ¥  ¥¥  ¥¥  ¥  ¥  ¥  ¥¥  V  ¥¥  ¥  ¥¥  ¥ 

Subroutine:  con_in 
Entry  conditions:  none 

Exit  conditions:  dx  contains  most  significant  ASCII 

digits  entered 

bx  contains  least  significant  ASCII 
digits  entered 
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JResisters  altered:  dx,bx 
•‘Subroutines  called:  save.restor 
•Deescripticn: 

;  BDOS  function  10  is  utilized  to  input 

,*a  line  of  edited  data  from  tne  console.  Sacespacir.fi 
;  i  s  pertnitted  tnrougn  tte  use  of  Control-R  or  Controi-X. 

•  Only  a  maximum  of  3  characters  can  De  entered.  To 

•  alter  this,  the  value  of  'buffer'  must  be  changed,  i'or 
>a  complete  description  of  BDOS  function  10,  see  pa«?e  29 
;in  "CP/M-B6  Operating  System  System  Guide"  by  Digital 
JResearch.  Two  error  conditions  are  reported:  (l)  if 
Jno  data  has  been  entered  and  (2)  if  the  data  entered 

; is  non-n ume ri cal .  In  eacn  case  tne  user  is  promptec 
Jfor  data  aeain. 


con_in : 
con  in  1: 


con  in  2: 


con_ln_3: 
con  in  4: 


con  in  5: 


con  in  6: 


con  in  7: 


call 

save 

mo  v 

c 1 , bdo  s_10 

mov 

dx, off set  b 

uffer 

mo  v 

Duffer, 3 

int 

bdos 

cmp 

num_cnars ,0 

jne 

con~in_3 

mov 

cl, bdos  9 

mov 

dx, offset  err 

in 

int 

bdos 

Jmp 

c  on_in_l 

mov 

di  ,nun_cna rs 

mov 

bx, offset  asc 

data 

mov 

al ,  [bxj 

mmp 

al,  '0 

j  b  c 

:on  in  2 

—  _  “y 

cmp 

31,9 

Ja  " 

on_i  n_2 

inc 

ox 

dec 

dl 

jz  con_in_b 

j^P 

con_i n_4 

mov 

lx  ,0 

mov 

bx  ,0 

cmp 

num_cnars , 1 

jne 

c  on_i. n_b 

mov 

bl ,asc_la  ta 

_1 

j^P 

con_in_B 

cmp 

num_cnars ,2 

jne 

o on_in_7 

mov 

cn , a  sc_la  ta 

mo  v 

ol ,asc_la  ta 

_2 

J*P 

con_in^S 

me  v 

1 1  ,a sc_la  ta 

1 

mov 

on, asc  data 

~2 

Jsave  all  rees 
Jbdos  console  in 
•input  buffer 
Jmax  char  count 

;c!r  for  no  cnars 

•‘console  output 
;  loc  of  err  rs? 


jcnecK  eacn  cnar 
i;er.tered  for 
;valia  asc  number 


•‘get  next  number 
;test  for  last  nur 


Jinitiaiize  result 
»CK  for  1  cnar 


; c K:  for  2  cnars 


Jmust  re 


cnars 


;place  in  ax 
Jana  dx 


mov  Dl , as c_dat a_3 

con_m_u:  nov  ms_data,ix  Jsave  result 

mov  ls_data,bx 
call  restor 

ncv  dx,ms_data  ;place  in  ax 

nov  bx,is_data  Jana  dx 

ret 

{Subroutine:  asc_dec 

{Entry  condi  tionsrdx  contains  ASCII  representation  of  most 
;  significant  2  digits  of  4  digit  names r 

;  bx  contains  ASCII  representation  of  least 

;  significant  2  digits  of  4  digit  number 

{Exit  conditions:  dx  contains  4  digit  BCD  equivalent  or  ax 
;  and  bx 

{Registers  altered:  dx 
{Subroutines  called:  none 
{Deseri pti on : 

{  Upon  entry  to  tnis  subroutine  dx  and  bx  must 

{contain  tne  ASCII  representation  of  a  4  digit  number. 

{Even  if  tne  digit  to  be  converted  is  not  4  digits,  tnese 
{registers  are  converted  and  tnerefore  tne  number  must  De 
{rignt  justified  witn  zero  fill. 


asc  dec  : 


as c  dec  1 : 


asc  dec  2: 


pusn  ax 
pusn  cx 
pusn  bp 
pusn  si 
mov  si  , 000f n 
mov  bp, 01  a 
mov  a l ,11 
and  ax,si 
mov  c 1 ,a 1 
nov  a  1 ,  d  n 
and  ax, si 
mov  cn.al 
mov  ax,0 
mov  a  1 , cl 
mov  cl, 4 
snl  cn,cl 
add  al,cn 
mov  dx,ax 
emp  bp,00n 
Jz  asc_dec_2 
mov  d i ,dx 
mov  bp,00n 
mov  ax,tx 
jmp  asc_iec_l 
mov  cl,0Bn 
snl  ai .cl 


{save  registers 


*  initial! ze  mass 
{initialize  bp 
;get  first  cnar 

{save  result 
{get  second  cnar 

Jsave  result 
{clear  ax 


{  snif  t 

{result  in  al 
; place  ir.  dx 
{cnecs  for  end 

{most  signif  in  ai 

{adj  least  signif 


♦final  result 
{restore  regs 


and  dx,di 
pop  si 
pop  bp 
pop  cx 
pop  ax 
re  t 

SuDroutine:dec_Din 

Entry  conditions:  dx  -  Contains  4  digit  BCD  numDer 
Exit  conditions:  dx  -  Contains  Dinary  equivalent 
Registers  Altered:  dx 
Subroutines  called:  save.restor 
Description : 

Tnis  suoroutine  converts  tne  Dir.ary  coded  decimal 
(BCD)  numDer  found  in  dx  into  its  binary  equivalent 
and  places  tne  result  in  dx. 


dec  Din: 


dec  Din  l: 


dec  Din  2: 


ca  11 

save 

{save  ail  regs 

mov 

ai  ,dx 

{save  a  copy 

mov 

si.e 

Jinit  result 

mov 

Dp, 03 00n 

{power  of  10 

mov 

c l , 0cn 

Jinit  s.nirt  factor 

mov 

ax,  Dp 

{move  power  of  10 

mov 

cn  tan 

{to  cn 

snr 

dx  ,c  1 

Jsnift  BCD  number 

mov 

dx  ,dx 

{move  it  tc  dx 

and 

ox,00Pfh 

{masic  off  tne  byte 

mov 

rru  1 

ax  ,0an 

DX 

{multiply  factor 

mov 

dx  , ax 

{move  result  to  dx 

dec 

Jnz 

cn 

dec_bin_2 

; dec  power  of  10 

add 

si ,  DX 

{add  to  result 

sub 

Dp,0l00n 

{adjust  power  of  10 
{for  next  loop 

mov 

d  x ,  a  l 

{restore  number 

sub 

jnz 

c  1 ,  Z4n 
dec_oin_l 

{adjust  shift  count 

mov 

dx  ,d  i 

{restore  numoer 

and 

ix.eeef n 

JmasK  off  last  byte 

aid 

si  ,dx 

{final  result 

mov 

call 

Di n_num , s i 
,  restor 

{  result  'Din_num' 

mov 

ret 

dx , d i n_num 

{move  result  to  dx 

{Subroutine:  bin_dec 

{Entry  conditions:  dx  contains  binary  numoer  in  range  0-999 
{Exit  conditions:  dx  contains  4  digit  BCD  equivalent 
{Registers  altered:  lx 


•Subroutines  called:  save.restor 
jDescription : 

;  Tne  binary  numoeT*  round  in  register  dx  upon 

jentry  to  tnis  routine  is  converted  to  its  binary  coned 
;decimai  equivalent.  Note  tnat  no  cnecics  are  mace  on  tne 
•validity  or  tne  number  but  tnat  any  number  outside  or  tne 
jrange  0-999  decimal  will  produce  unpredictable  results. 


bin  dec : 


call 

save 

mcv 

di  ,dx 

mo  v 

bx, off set 

mo  v 

cp  ,0in 

mcv 

ans_ls  ,0n 

mov 

ans  ms.tfn 

mov 

cl  ,0n 

bm_ 

dec 

1 

•  • 

and 

dx ,  bp 

cmp 

d  x ,  0  n 

jnz 

oin_dec_3 

Din_ 

dec 

_2 : 

inc 

c  1 

cmp 

cl ,0an 

jz  bin_dec_S 

sni 

op,l 

mov 

dx  ,di 

Jnp 

bin  dec_l 

bin_ 

dec 

^  • 
u  • 

mov 

a l  ,ci 

xiat 

tabie_l 

add 

al  ,ans_is 

daa 

mov 

ans  ls.al 

j  b  bin  dec  5 

bir._ 

dec 

_4: 

mov 

ox  .offset 

mov 

ai  ,cl 

xiat 

tab  ie_'i 

add 

al ,ans~ms 

laa 

mov 

ans_ms ,ai 

mov 

ox  .offset 

jm? 

bin_dec_2 

bin_ 

dec 

K  • 

w  * 

mov 

al.ans  ms 

add 

a  1 , 1  r. 

daa 

mov 

ans  jns , a  1 

jmp 

bin~dec_4 

bin_ 

dec 

_6 : 

mcv 

ax  ,0 

mov 

al.ans  ms 

mov 

cl.S 

sni 

ax  ,cl 

mov 

CX.0 

mov 

cl ,ans_ls 

aid 

ax  ,cx 

Jsave  an  register 
Jsave  tne  number 
table_l  Jtransiate  table 
•'initialize  masic 

•  initialize  result 

Jinit  tbi  position 
Jcnecx  for  bit  set 

•update  tne  result 
•'update  position 
•test  last  creci 

•'update  tne  mass 
; res  tore  number 

•offset  trans  tci 
; translate  number 
•update  tne  result 
•adjust  result  BCD 
•store  result 

tabie_2  »point  to  table_2 

•  translate  number 

•'adjust  to  BCD 
Jstore  result 
tabie_l  jrestcre  ?X 

;add  i  to  ms  byte 

Jaajust  result 
Jstcre  result 


•finalize  result 
•'load  snift  count 
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mcv  iec_num,ax 
call  restor 
nov  dx,dec_num 
ret 


fsave  result 
frestor  registers 
Jmove  result  tc  ix 


9  9?  999  W  99*  9999?  9?  VW9V  s*  )**«»!«*  >PWV  V  »*»!<  W  VW  W»P 


Subroutine:  dec_asc 

Entry  conditions:  dx  contains  4  digit  BCD'  number 
Exit  ccniitions:  dx  contains  most  significant  2  digits 

in  ASCII  code 

bx  contains  least  significant  2  digits 
in  ASCII  code 
Ree-isters  altered:  dx.bx 
Subroutines  called:  none 
Description: 

Tne  4  diffit  BCD  number  found  m  dx  upon 
entry  is  converted  to  its  ASCII  equivalent  and  placed 
in  dx  and  bx.  No  onecK  is  made  on  tne  validity  of  tr.e 
data  in  dx. 


dec  asc  : 


dec  asc  l: 


dec  asc  2 : 


pusn  ax 
pusn  cx 
pusn  di 
pusn  bp 
mcv  op,01n 
mov  al,dl 
mov  bi,di 
and  al,0fn 
and  Dl.eren 
and  al,30n 
tov  cl, 4 
snr  bi,cl 
add  ol,30n 
mov  cl,al 
mov  cr.,bl 
cmp  op,0t5n 
Je  dec_asc_2 
mov  op.een 
mov  d i  ,  c  x 
mov  al,dn 
mov  bl,dn 
j-np  dec_asc_i 
mov  cx,cx 
mov  bx,di 
pop  op 
pop  di 
pop  cx 
pop  ax 
re  t 


,‘save  registers 


finitialize  flag 
»al  low  nyoole 
ibl  nign  nyccie 


; convert  to  ASCII 


; convert  to  ASCII 

Jmove  rest’ it  to  c x 
fiast  conversion? 


flow  result  to  di 


frestore  registers 


J  wVWWWWWWV!?  WVVWMW  W&WWW  WWWWW  Iftfw  VV-VV 


;Su  trou  tine:  save 
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jEntry  conditions:  none 

tBxit  conditions:  ail  registers  are  pushed  on  tne  stacir 
jRegisters  altered:  none 
jSuoroutines  called:  none 
jDescription : 

;  Tnis  subroutine  pusnes  all  of  tne  registers  on  tne 

, 'stacir.  Note  tnat  tne  call  return  is  preserved. 


save : 


mov  temp_ax,ax 
pop  ax 

mov  temp_stac!£ , ax 

mov  ax,temp_ax 

push  ds 

pusn  es 

pusn  ss 

pusn  hp 

pusn  si 

pusn  di 

pusn  ax 

pusn  cx 

pusn  cx 

push  dx 

mov  ax ,temp_stacK 

pusn  ax 

ret 


Jsave  ax 

»pop  return  address 
>*save  can  return 
;restore  ax 
Jpus.o  ail  reeisters 


all  return 


;  restore 


Subroutine:  restor 

Entry  conditions:  stacs  contains  all  the  registers 
Exit  conditions:  re^is ters ^are  restored  to  tne  condition 
prior  to  the  call  to  'save' 

Registers  altered:  all  except  cs 
Subroutines  called:  none 
Description: 

Tnis  subroutine  returns  ail  registers  to  tneir 
same  condition  prior  to  tne  call  to  'save'. 


restor: 


pop 

ax  ; 

mov 

temp  stacir, ax 

pop 

ax  ; 

pop 

cx 

pop 

ox 

pop 

ax 

pop 

di 

pop 

si 

pop 

op 

pop 

ss 

pop 

es 

pop 

ds 

mov 

temp_ax , ax 

A  ?  -U  »  U  Wilt  ■  X  J.  *  ^ 

Jpop  all  registers 


Jsave  ax 


12b 


mov  ax,temp_stacK  {restore  call  return 
pusn  ax 


mov  ax, 

temp  ax 

{restore  ax 

• _ _ 

re  t 

• 

9 

• 

9 

9 

DATA  SECTION 

5 

Din  qut 

aw 

0 

{used  by 

dec_oln 

temp_ax 

d  w 

0 

{used  by 

save  and 

temp  stacft 

dw 

0 

{ res  tor 

temp  tt 

dw 

001 

{used  by 

trie  num 

•  wwvvvwwvv’i'vw  w  w  w  ww  w  wv 

x/t  Xf  XU  Xf  xfjfi  a?  3f  xf  V  *  V  *t  XX  xf  Xf  XX  XX  XX  xx  V  XX  VV  xx 

9 

m 

9 

STORAGE 

REQUIRED 

ST  3IN_DEC 

9 

table  1 

db 

01.1 

lb 

02  r. 

db 

041 

d  c 

08l 

ac 

161 

d  b 

321 

at 

641 

db 

281 

db 

561 

db 

12l 

table  2 

db 

001 

db 

00n 

d  c 

001 

db 

001 

d  b 

001 

db 

001 

d  b 

001 

db 

011 

d  b 

021 

db 

051 

ar.s_ms 

d  c 

001 

ans  Is 

db 

001 

dec  num. 

dw 

001 

• 

9 

• 

9 

STORAGE 

REQUIRED 

ST  CON_IN 

• 

9 

Duffer 

db 

001 

num  cnars 

db 

001 

asc  data  l 

db 

001 

asc  data  2 

db 

001 

asc  data  3 

db 

001 

ms_data 

dw 

001 

Is  data 

a  w 

001 
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• 

t 

i 

STORAGE 

REQUIRED  BY  REV 

! 

crrd  name  g 

do 

'Initialize  tne  Disie  $' 

cmi  name  1 

db 

'Verify  Initialization  $' 

cmd  name  2 

d  b 

'Initialize  and  Verify  s' 

cmd  name  3 

d  b 

'Format  tne  Disie  $' 

cmd_name_4 

• 

db 

'Verify  tne  Format  s' 

> 

rev_tabl 

db 

wio.cr, If , 'Command  to  be  executed:' 

• 

d  b 

'S'.cr.lf 

f 

rev  tabl  l 

d  b 

'Pnysical  address  of.  logical' 

do 

sector  0: 

asc  log  sec0 

d  o 

00n 

asc  log  sec0  1 

lb 

00n 

asc  log  sect!  2 

db 

00n 

• 

db 

cr,lf, 'Sector  steew  factor:  ' 

asc  slew  far 

do 

00n 

asc  slew  fac  1 

db 

00n 

asc  slew  fac  2 

d  d 

00n 

• 

do 

cr. If, 'Location  of  spare  sector: 

f 

asc_spar 

d  o 

00n 

asc_spa  r_l 

db 

00n 

asc  spar  2 

d  b 

00n 

re v  tabl  2 

do 

cr, If, 'Disie  nead  number: 

asc  head 

db 

een 

asc  nead  l 

db 

00n 

asc  nead  2 

lb 

00n 

do 

cr , If , 'Beginning  tracie  number: 

asc  beg  trie 

d  b 

00n 

asc  be?  trie  1 

db 

00n 

asc  beg  trie  2 

d  o 

00n 

db 

cr, If , 'Ending  tracs  number:  ' 

asc  end  trie 

db 

00n 

asc  end  trie  1 

lb 

0  0n 

asc  end  trie  2 

d  b 

00r. 

lb 

c  r ,  1  f ,  l  f 

d  b 

'Strise  <enter>  to  continue' 

*  ™  «  B 

db 

/  *  / 

> 

• 

f 

STORAGE 

REQUIRED  BY  PROC  ERR 

err_coie  db  vwn 

proc_err_taol  db  wip,cr,lf, 'Statistics  cn  Command  ' 

lb  'Abortion: ' 

db  cr  ,  1 f , 'Command  being  executed:  s' 
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proc_err__taol_i 
asc__dK_bead 
asc_dfc_bead_l 
as  c~lK_bea  d~2 

asc_trx 

asc~tnc_l 

asc~trx_2 

asc_sec 

asc~sec_l 

asc_sec_2 

asc_err_c 
asc_err_c_l 
asc  err  c  2 


Jmp_ta  Dl_l 


Jmp_taCl_2 


jmn_ta  bi_3 


Jmp_tabl_4 


dfc 

cr  ,  if  ,  'Disic  bead  number: 

db 

00h 

db 

00a 

do 

00b 

d  b 

cr. If, 'Last  trie  number  processed 

db 

00b 

db 

00b 

d  b 

00a 

dD 

cr, if, 'Last  sec  number  processed: 

lb 

00n 

db 

00a 

lb 

00a 

db 

cr , if ,  'Srro r  code : 

db 

00n 

db 

00n 

d  b 

00b 

1  b 

cr,  if ,if 

db 

'Stride  <enter>  to  continue' 

d  d 

JUMP 

TABLES 

dw 

in_ver_dsK 

dw 

in_ver~is£ 

dw 

in_ver”asi 

dw 

fm_ver_dst 

dw 

f m_ver_dSE 

dw 

descr 

dw 

s_end 

dw 

read_0 

dw 

read_l 

dw 

read_2 

dw 

read_3 

dw 

read_4 

C.W 

read_5 

a  w 

read_o 

dw 

rev_en  t 

dw 

cag_en  t 

dw 

e_cmmd 

dw 

main 

dw 

s_end 

dw 

cmd_name_0 

dw 

cmd3name_l 

dw 

cmd_name_2 

dw 

cmd~name_3 

dw 

cmd~name_4 

dw 

cng_7 

dw 

Cbff~d 

dw 

cr.g3y 

dw 

cag_i0 
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Jrnp_ta  ol_5 


jnp  tabl  6 


read  fc? 


read  1 


read  2 


real 


read  4 


Cfl2_ll 

Cn£~12 

cn^_l0 

cn<?_ll 

cng_l2 


DESCRIPTION  OF  COMMANDS 


wip, or. If.  'Initialize  tne  Disit:' 
cr,lf,'  Tnis  command  is  used 
'to  write  tne  address  and 
"data  fields  on  tne  disK.' 
cr.if.'It  snouid  only  ce  usea  if' 
'  a  disK  fault  is  suspected' 
c  r .  i  f .  l  f 

'stride  <enter>  to  continues' 
wip.cr.lf, 'Verify  Initialization: 
cr,lf,'  Tnis  command  is  used  in 
'conjunction  witn  tne  Initialize 
'command. ', cr, If , 'Any  errors  tnat 
'are  discovered' 

'during'  verification 

'are  reported  at  tne  console.' 

cr ,  if 

'Tne  error  codes  can  be  found  in 
'tne  Micropolis  Technical  Manual 
'pp  24-Zb' 
cr, if , if 

'striKe  <enter>  to  continues' 
cr. if ♦ 'Ini tiaiize  and 
'Verify  simul  taneous  ly :  ' .  cr ,  If 
'Tnis  is  a  combination  of  tne 
'previous  two  commands.' 
cr , if , if 

'striKe  <enter>  to  continues' 
wip ,  cr  .  if ,  'Fo rmat  tne  Diss:' 
cr,  if 

'Tne  controller  will  place  bln  in 
'ail  data  f ields  '  ,cr  , if  ,  'curing 
'initialization  of  tne  disx.' 
c  r ,  l  f 

'Tnis  command  is  used  to  replace 
'51  a  witn  Ebn  as  tnis  is  '.cr.lf 
'wnat  CP/M  expects  to  find  to' 
'create  a  directory 
c  r ,  l  r  ,  1  f 

'stride  <enter>  to  continues' 
wip, cr. if , 'Verify  tne  Format:' 
c  r ",  1  f 

Verifies  tna t  S5n  is  in  tne 


read  5 


read  6 


menu  l 


menu  2 


menu  3 


menu  4 


d  d 
db 

do 

db 
d  b 
db 
i  b 
db 
db 
db 
db 
db 
d  b 
d  b 
db 


MENUS 


1  b 
db 
db 
db 
db 
d  b 
db 
db 
d  b 
db 
d  b 
d  b 
db 
d  b 
db 
d  b 
d  b 
d  b 
d  b 
d  b 
d  b 
db 
d  b 
db 
db 
a  c 

d  b 
db 
d  b 
db 
db 
db 


'data  fields  of  me  disk.' 
cr, If  ,lf 

'strike  <enter>  to  continues' 
wip.cr, if , 'Read  a  Description  of 
'tnese  commands cr , if  ,  if 

A.  qui ck  look  at  tne  commands 
'available  in  tne  Micropclis 
cr.if,  'Maintenance  area. 'cr.if, if 
'strike  <enter>  to  continues' 
vip, cr.if , 'End  tnis  session:' 
cr.if 

Immediately  terminates  tne  ' 
'session  witn  no  further  action.' 
c  r ,  i  f ,  1  f 

'strike  <enter%>  tc  continues' 


cr, if , 'Select  Option:' 
cr.if, '(2)  Initialize  tne  disc' 
cr.if, '(1)  Verify  Initialization' 
cr.if, '(2)  Initialize  and  Verify 
'simultaneously ' 
cr.if, '(3)  Format  tne  disc' 
cr.if,  '(4)  Verify  tne  Fermat' 
cr.if, '(b)  Read  a  description  of 
'tnese  commands' 
cr.if, '(5)  End  tnis  session' 
cr.if, 'Enter  selection  ==>  S' 
cr.if , 'Select  Option:' 
cr.if ,  If ,'  (feJ)  Review  entrys' 
cr.if, '(1)  Cnange  an  entry' 
cr.if, '(2)  Execute  command' 
cr.if,  '(3)  Start  over' 
cr.if, '(4)  End  session' 
cr.if , If , 'Enter  selection  ==>  s' 
cr.if , 'Select  value  to  cnar.^e:' 
cr.if , if ,' (0)  Physical  address  of 
'iozical  sector  0' 
cr.if, '(1)  Sector  skew  factor' 
cr.if, '(2)  Location  of  spare 
cr.if, '(3)  Disk  aeaa  number' 
cr.if, '(4)  Ee^inninsr  track  number' 
cr.if, '(5)  Ending  track  number' 
cr, if , if , 'Enter  selection  =->  s' 
cr.if , If , 'Select  value  to  cnange:' 
cr.if,  '(2)  Disk  head  number' 
cr.if, '(1)  Pesinnin?  track  number' 
cr.if, '(2)  Ending  track  number' 
cr.if .if, 'Enter  selection  ==>  s' 


ERROR  MESSAGES 


» 


micrst_err 

d  b 

cr, it",  'Micropolis  DIsk  Reset  Errors 

?rr_in 

d  c 

wlp, oe ,cr, if , 'Error  in  input.' 

d  b 

'Only  integer  data  is  valid. 

d  b 

cr,lf,  'Try  again  ==>  $' 

err  1 

db 

wip,be ,cr,if, 'You  nave  not 

lb 

'selected  a  valid  ootion.  $' 

err_2 

db 

wip, be , cr , If , 'ERROR: $ ' 

• 

» 

• 

GENERAL 

MESSAGES 

9 

end_msg 

d  o 

cr, if , 'Session  nas  ceen 

1  b 

'terminated. s ' 

w  a  rn 

wxip,cr,lf ,  ' - ' 

db 

'V  A  R  N  I  N  G - 

lb 

cr,if,'Use  of  tnis  program  win' 

dt 

'destroy  tne  contents  of  aisK  !!!!' 

db 

cr,if,'Po  you  wisn  to  ' 

1  b 

'continue  (y/n)?  $' 

msg  1 

db 

cr,  if f  'Input  diss  nead  number.' 

lb 

cr, if, 'Valid  range  is  0  to  4  ==>  s' 

msg_2 

lb 

cr, if, 'Input  tne  pnysical 

db 

'address  of  logical  sector  0 . ' 

db 

cr, If, 'Valid  ranee  0  to  23  ==>  S' 

msg  3 

db 

cr,lf, 'Input  sector  s^ew  factor' 

db 

cr, If, 'Valid  range  0  to  23  ==>  S' 

msg_4 

db 

cr, if, 'Valid  range  0  to  5?y  ==>  s' 

mse  5 

lb 

or, if ,  'Input  beginning 

d  b 

'trs  number. s' 

msg_6 

i  S 

cr, if, 'Input  enaing  traci  number. s' 

msg_7 

lb 

or, If, 'Input  location  of 

1 1 

'spare  sector' 

lb 

cr, If, 'Valid  ranee  0  to  255  ==>  s' 

msg_S 

dt 

cr,if , if , 'Currently  formatting' 

l  b 

'  ani/or  verifying  format  of  list' 

1  b 

cr,lf,  'Please  standby . S' 

,T  s  g  1  0 

lb 

cr  , if  , if , 'Currently  initializing 

db 

'and/or  verifying  disz' 

1 1 

cr , if ,  'Please  standov . $' 

nsg  li 

1  n 

cr.if, 'Command  was  successfully' 

lb 

executed. $' 

9 

MI CROPOLIS  PARAMETER  TABLE 

9 

cml_&yte 

d  D 

00n 

pa  rtnl 

lb 

00n 

pa  rm2 

db 

00  n 

parm3 

lb 

00n 

pa  rm4 

lb 

00n 

3 


PROGRAM  LISTING  OJf*  CPMSIOS.AStt 


Pro^  Name  :  CPM£I0S.A86  (Easier  CPM  Bios) 

Date  :  5  April  1983 

Written  by  :  Diei tal  Researcn 

Modified  dv:  Mars  L.  Perry 

For  :  Tnesis  (AEC-IS  Modeling  Group) 

Advisor  :  Professor  Cotton 

Purpose  :  Tnis  bios  is  for  use  *i  tn  tne  iSPBb'/lHA. 

:  Includes  lo*in  and  logout  routines  and  ail 
:  Real/Write  operation  conducted  via  common 
:  memory.  It  also  includes  tne  code  for 
:  generating  a  loader  for  tne  P.emex  floppy 
:  cisfc . 

V^^F****^  WWW  wwxpwqt  &  &*&***  ******  *******  ajt  ajt  a?:  ^  ajt  ajt  ajt  ^  ^  aj«  W 

EQUATES 


true 

equ 

-1 

false 

eau 

not  true 

cr 

equ 

tfdn 

icarriare  return 

If 

equ 

2aa 

;iine  feed 

error 

eau 

0ffe 

Jeeneral  error  indication 

master 

eou 

t  rue 

{for  master/siave  version 

loader_bios 

equ 

false 

Jset  for  loader  version 

cmemse? 

equ 

eeeee.n 

Jcommon  memory  segment 

isystem  addre 

sses 

bios_int 

• 

> 

equ 

224 

?re  ervei  BDOS  interrupt 

• 

? 

IF 

not 

ioader_blos 

• 

1 

c~p_o f f set 

equ 

eeeen 

} start  of  CCP  code 

bdo?_of  f se  t 

equ 

Qtzsn. 

; BDOS  entry  point 

bios_of fse  t 

? 

• 

equ 

2500n 

; start  of  31 OS  code 

ENDIF 

Jnot  ioaaer_oics 

» 


bios_of fse  t 
ccp_of f set 
bdos _of fse t 

J 

eau  1200ft 
equ  000 3n 
eau  040fc>n 

Jstart  of  ldDios 

J  base  of  CPML0ADEF. 
Jstripped  EDOS  entry 

) 

ENDIF 

Jloader_oios 

•console  via 

tne  18251  USART 

cs  tat 

cdata 

tbemsit 

rdamsic 

equ  01an 
equ  0d3n 
equ  1 
eau  2 

Jstatus  port 
•data  port 

J transmit  ouffer  empty 
•'receive  data  avaiiaoie 

ccp : 

cs  eg 
ors 

org 

cc  do f fse  t 

bi os_of f set 

J  W  W  W3?  W  W  W  W  W  W  VWW  W^5?W  W  WnK 

bios:  ;JUM?  VECTORS 

•  V?¥?¥  •»3!tJ!c  *Jjt  JJtJ*  *  W*  JJC^t  W  vw  W*  WVW  WWWWW  WntJPW  WWW  w 


jmp  IN  IT 
j 71  p  WBCOT 
jmp  CONST 
Jmp  CON  IN 
jmp  CONOUT 
jmp  LISTOUT 
jmp  PUNCH 
jmp  HEADER 
jmp  HOME 
jmp  SELDSA 
jmp  SETTRK 
Jmp  SETS  EC 
jmp  SSTDMA 
jmp  READ 
jmp  WRITE 
jmp  LISTST 
jmp  SECTPAN 
jmp  SETDMA3 
jmp  GETSEGT 
jmp  GETIOBF 
jmp  SETI03F 


»*Ectsr  from  300T  ROM  or  LOALSR 
•  Arrive  nere  from  BDOS  call  0 
•return  console  Keyboard  status 
•return  console  Keyboard  cnar 
•write  cnar  to  console  device 
•write  cnaracter  to  list  device 
J  write  cnaracter  to  puncn  device 
•return  cnar  from  reader  device 
Jmove  to  trtt  00  on  sel  drive 
•'select  disff  for  next  rd/write 
Jset  tracis  for  next  rd/write 
•set  sector  for  next  rd/write 
•set  of  set  for  user  buff  (DMA) 
•real  a  126  oyte  sector 
•'write  a  128  oyte  sector 
jreturn  list  status 
Jxlate  logica l->pnysicai  sector 
Jset  seg  base  for  buff  ( TMA ) 
Jreturn  offset  of  Mem  Desc  Table 
jreturn  I/O  map  oyte  (iobyte) 
Jset  I/O  map  oyte  (iobyte) 


Jjc  Jjt  JJC  Jjc  >JC  J)t  V  ^  s?  V  V  W  W  W  W  W  »)•  >?  >P  V  ^  W  W  W  S?  V  « W  V  W  V  S*  V  W  V  >!■  V  5*  W 

Entry  Point  Routines 


134 


not  loader  ties 


Include  login. aSS  Jiogin  £  logout  procedures 


EN  DIF 

;  V  W  WW  W  *******  :*!****  ****  ********  *3^3*5**  *****  *** 

[NIT:  jprint  signon  message  and  initialize  nardware 

»anl  software 


mo  v 

a  x ,  c  s 

; w  e  entered  wit  a  a  J^P 

mo  v 

ss,ax 

,*so  use  cs :  as  initial 

mo  v 

ds  ,  ax 

; segment  values 

TO  V 

es ,  ax 

mo  v 

s  p ,  o  f  f  s  e  t 

s  t ibase 

fuse  local  stact 

cld 

Jclear  direction  flag 

IF 

not  ioader_cios 

Tnis 

is  a  El  OS 

for  tne 

CPM.SKS  file 

Setup  ali  interrupt  vectors  in  low 
memory  to  address  trap 


pusn 

as 

pusn 

es 

mo  v 

io  cyte ,0 

Jclear  i/o  Dyt 

3 

mo  v 

ax ,  0 

jaadress  trap 

routine 

mev 

ds  ,ax 

mo  v 

es ,  ax 

mo  v 

int0_of f st , off  set 

in  t_trap 

mo  v 

lnr,0  segment, cs 

mo  v 

di  ,4 

jpropaeate  to 

rema inin? 

» vectors 

mo  v 

si  ,0 

T0  V 

cx,blO 

rep  movs 

ax ,  ax 

mo  v 

Ddlo,Ddos  offset 

Jcorrect  Ddos 

int  vector 

po  p 

es 

pop 

d  s 

SNEIF  ?not  loader  Dios 


IF  loader  Dios 


Tnis  is  a  EIQS  for  tne  LOADER 


13b 


,'save  data  segment 


I 


r. . 


L 

£ 

> 

i"t  - 

• 

>„-*  t 

■*  • 

pusn 
■no  v 

mov 

PO  V 

no  v 

pop 

ds 

ax,  V 
ds ,  ax 

olio, bdos_of fset 
bdi s , CS 
ds 

,'save  da  ta  segment 

jpoint  to  segment  2 

Jcorrect  offset 
,'Ddos  interrupt  segment 

» 

■”  « 

1 

r1* 

>.  f 

• 

EM  DIF 

call  con_init 
xo  r  bx ,  bx 
inll : 

mov  ax, intbl LdxJ 

or  ax, ax 

jz  lni2 

pusn  bx 

call  ax 

pop  bx 

inc  ox 

i  n  c  ox 

jmp  mil 

IF  not  loader_oi os 

;  loader_bios 

, 'initialize  console 
;get  mass  storage 

•initialization  table 
,'quit  if  end  of  table 

jcaii  ic.it  entry 

jstep  to  next  entry 

,'loop  for  next 

‘  „  9 

*a 

ini2: 

■ 

call 

login 

mov 

bx, offset  signon 

, 'print  sign  on  nsg 

call 

pmsg 

TIOV 

cl ,user 

■ 

—  • 

*  9  “ 

b/; 

EM  DIF 

;not  ioader_bios 

:-v 

IF 

loaisr_bios 

5  ’’ 

ini2: 

■no  v 

bx, offset  signoni 

iprint  sien  on  message 

call 

pmsg 

mo  v 

cl,0 

Jdefauit  to  'a'  on  coldstart 

»  *- 

IS  i 

no  v 

uni  t  ,4J 

ENDIF  jloaaer  Dios 


jmp  ccp  Jjump  to  coll  entry  or  CCP 


WBOOT 


•  enter  CCP  at  command  level 


jmp  ccp+5 

•  *********  ***********  **********  ********  **  **  **  *??*»»»«»  V? 

CONST:  Jreturn  console  status 

in  al.cstat 
and  al .rdamsK 
jz  coni 

or  al,0ffH  ; return  non-zero  if  raa 

coni:  ret 

J  **********************  *  V  *********  ****  a***?  ****  »?*¥*  ****** 

CON  IN:  feet  a  cftaracter  rron  console 

call  CONST 

Jz  CON  IN  Jvait  for  RDA 

in  al.clata 

and  al,7f.n  ;  read  data  \  remove  parity  tit 

re  t 

CONOUT:  Jsend  a  cnaracter  to  console 


in 

ai ,cstat 

and 

al ,  t  oemsic 

•get  console  status 

jz 

CONOUT 

mo  v 

al ,  cl 

out 

ret 

cda ta  ,al 

Jxmit  Duff  is  empty 

J  ******  ***  **  ***  **  3^  *****  ****  *******  ******  ****  ***  *  ******** 

LISTOUT:  Jsend  cnaracter  to  list  device 

•not  yet  implemented 

re  t 

;  ***********************  ****  ******  **********  **************** 
PUNCH:  Jwrite  cnaracter  to  puncn  device 

•not  implemented 

re  t 

* *********************************************************** 
READER :  Jget  cnaracter  from  reader  device 

Jr.ot  implemented 


mov  ai,lan  Jreturn  eof 

re  t 

J  WW  W  WWW  WWW  WWW  WWW  WVW  WWW  WWW  WWW  WWW 

E0,ME:  ,'move  selected  disx  to  trie  e fc? 

! 

mov  tract, 0 
xor  bx,cx 
mov  bi,unit 
add  bx,br 
call  dmt bi  loxj 
re  t 


j  WSW  W=(esW  WJW^WSW  W»*:W>W>*55t>it5W  WSWSWSWV  W  W*K  W  W^WJW  W  WW  W 

SELESt:: 


;  return 

pointer  to  appropriate  'list 

Jnarameter  bioct  (zero  for  cad  unit  no) 

; NOTE: 

nunits  is  defined  in  tne  .  ciV  file 

mo  v 

unit , cl 

Jsave  unit  number 

mov 

bx ,0000n 

; ready  for  error  return 

emp 

cl  ,nuni ts 

; return  if  beyond  max  unit 

Jnb 

sell 

mov 

bi , uni t 

add 

bx ,  bx 

call 

dstt  bi [bxj 

xor 

bx ,  bx 

mov 

bi ,unit 

; bx  =  cl  *  lb 

mov 

cl  ,4 

snl 

bx  ,cl 

mo  v 

cx,  offset 

dpbase  » bx  +=  ^dpbase 

add 

bx  ,cx 

sell : 
ret 

SSTTRK:  Jset  tract  address 

mov  tracx.ci 
xor  bx,bx 
mov  bi,uait 
add  bx ,  bx 
call  trttblCoxJ 
re  t 

’  aw***  W  Wa*  W*  W  a*a*  s*j(C5W  W>W  WJW  a*  W  Wa*a*  W  W  W  W*s*sWJW  W  W  W  W  W 

SSTSEC:  Jset  sector  number 

mov  sector, CL 
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xor  ox ,  ox 
mo v  Oi, unit 
add  bx ,  bx 
call  sectoiUxJ 
ret 

J  V?  **  W  JjtV *  9  7  SJS  if  3ft  ajs  a*  JJ!  ?  s* ajs  a*  9  «c  j*  jp  9 J*  9  j*  w  Sr  StJ?  W  F*  *f  W  W  *T V  Sr  W  >»  W  W  W  »F  >rff  *f  W 

SETDMA:  Jset  DMA  offset  given  oy  cx 

mov  dma_adr,cx 
ret 


•  vwWWifiV’fVWW’*  wvrf?  3f*3f  tfWV  9WWWWWWW  WWW  W  W 

READ:  jread  selected  unit,  trade,  sector  to  dma  addr 

Jread  and  write  operate  Dy  an  indirect  call 
Jtnrougn  tne  appropriate  tacie  contained  in 
;tne  configuration  file.  It  is  tne  programmer's 
responsibility  to  ensure  that  tne  entry  points 
Jin  tnese  tables  match  tne  unit  type 

xor  ox,  ox 
mov  01, unit 
add  ox ,  ox 
call  ratoiLoxJ 
ret 


;  sf  VW  Wt  V  Wf*  W*f  W  W*  V*#  W  >*>*>*  WW’tWWVWV’fWW* 

WRITE:  Jwrite  from  dma  address  to  selected 

Junit,  tract,  sector 

xor  ox, ox 
mov  bi, unit 
add  ox, ox 
call  wrtoiloxj 
re  t 


j  ¥M¥  *fiV  VW  W  VV  WW9W9  WV  VV»FV 

LISTST:  Jpoll  list  device  status 

Jnot  implemented 

or  al.Pffn  Jreturn  ready  anyway  or 

ret  J system  may  nang  up 


•  qtsft  &  a*  TfTf.  JJC  if  J*  s*  9  9  V  W  a*  a*  V  V  V  *F  aje  V  V  V  V  SF  SF  W  W  V  V  »F  V  V  >F  V  F«  V  V  SF  V  sj:  **  SF  V  =F  V  *  »F>F  »F 

SECTRAN:  Jtranslate  sector  cx  oy  taoie  at  Ldxj 

J  NOTE :  this  routine  is  not  aieauate  for 


case  of  >=  256  sectors  per  tract 
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f 


;  s  t  i  1 1  it's  better  tnan  DR's  wnic  n  is  r.ot 
^adequate  for  tne  no  table  case  eitner 


mov 

cn  ,0 

mov 

bx ,  cx 

cmp 

dx  ,0 

» c.ne 

ck  for  no  table  case 

je 

sel 

add 

bx,ix 

;add 

sector  to  table  addr 

mov 

bl , [bxj 

»get 

logical  sector 

ret 

J  wage  99?  WWV  99  9  9  9  9  999  99  9  9  9  99  9  9  999999  99  99999  9999999  9999 

SfiTDMAB:  »*set  DMA  seement  si  van  by  cx 

tov  ama_seg,cx 
re  t 

J  999999999999999999999999999999999999999999999999999999999 99 

GET?  GT:  , ‘return  addr  or  pnysical  memory  table 

mov  cx.offset  segtaoie 
re  t 


•  9999999999?  9999  999999999  99  99  9  9999  99999999  99  99  9999  99  99  9999  99 

GETI02F  :  jreturn  iooyte  value 

Jnote  -  tms  function  ana  SETIOBF 
fare  OK  but  to  implement  tne  function 
;tne  cnaracter  10  entry  point  routines 
»‘must  be  modified  to  redirect  10 
,‘depending  on  tne  value  of  iooyte 

mov  al.iotyte 
re  t 

;  9W  999999999  *9999999999999999  *****99  **999 

SETIOBF:  ;set  iobyte  value 

mov  iobyte.cl 
ret 


99  99  V  9  9  9  9  9  9  9  9  9  9  9  V  9  99  9  V  9  V  99  9  V  V  9  99  9  9  9  9  9  9  9  V  9  99  V  9  9  V  9  99  V  99  9  9  9  V  9  9 

SUBROUTINES 

999**9999  9999  WWW  999  9  V  9  V  999V9  9  99  9999  999999999999  W9 


14K 


IF  not  loader_Dios 

> 

int_trap:  Jinterrupt  trap  -  non  interrupt 

jdriven  system  so  snould  never  get 
,'nere  -  send  mesage  and  nait 


cli 

; blocK  interrupts 

mo  v 

ax  ,cs 

mo  v 

ds,ax 

iget  our  data  segment 

mo  v 

bx,ot*fset  ir.t_trp 

call 

pmssr 

nl  t 

; nardstop 

ENDIF  »not  loader  Dios 


con_init:  Jinitialize  console  driver 

iactually  done  oy  tne  iSUCH6/l^a  monitor 

ret 


pnsg:  Jsend  a  message  to  tne  console 


mov 

al , l  bxj 

Jget  next  cnar  from  message 

te  st 

al  ,ai 

Jz 

pmsl 

Jif  zero  return 

TO  V 

cl  ,al 

call 

CONOUT 

J  print  it 

i  nr 

DX 

jmps 

pmsg 

pm  si : 

re  t 

DISK 

INCLUDE  FILES 

*  w  W  W  W  at*  WV  VWWW  WWW  MW  W  WWWW  VWW  w 

include  rxriop.aBS 
include  micnard.aBS 

IF  not  loader_oios 

•  . — ^ ^  —  ^ .  _ _ _ ^ _  ___ __ — —  _  — 

> 

include  mDBedsff.aBB 
include  rxnard.aBB 
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ENDIF 


; no t  loade r  ci os 


Sfitfi  WV99V9WV  W  W  W  W  W  WV  V  WMV  VW  WWW  V  W  W  W 

RESOURCE  ALLOCATION 

*« *c 3JC  *t  *t st  *s *  j*  w  *e  sjc qx/tx/t  s*  x/t s*  s*  *s*s?!  V s* V  sje  W  V  V Xfi *  W V  V  W  V *  ^ **  *;«  W  V  V  W  V  ** M KV * **  Xf  V 

low-level  synchronization  of  access  to  tr.e  snared 
device.  <sync.ati6>  must  include  tne  tnree  entry 
points  defined  in  tne  cf*. files.  These  are 
called  on  initialization  and  before  arc  after 
accessing  tne  resource  respectively. 

IF  not  loader  bios 


ENDI? 


;not  loader_c-ios 


.  wv vijvv w vw w w w wvwww w vw5? vvwvfvvfvw 


DATA  5.  LOCAL  STACK  AREA 


cseg  $ 


signon  dD  cr,lf,cr,lf 

dD  c  r ,  1  f  ,  1  f ,  ' 

if  m as  ter 

db  'CPv/86  faster  ' 

endi  f 

if  not  master 

lb  'C?M/85  Slave' 

endif 

IF  not  loader  bios 


ENDIF 


22  April  1983  by 
r  ,  1  f  , ' 

^art  L.  Perry' 
r ,lf , if 

For  use  with  a  Subtle  Memory 
tne  P.EMEX  Dataware  House cr  ,  if 

and  tne  Micropolis  Dish  Driv 
r ,  1  f  ,  1  f  ,  1  f  ,  C 


Jnot  loader  bios 


IF  loader_bios 

»  — “  — — —  — — —  —  — 

» 

slgnonl  db  cr.lf,'  CP/M-B6  Loader' 

lb  cr.lf,'  Version  1. if' 

db  cr  ,11' , 'Loading  CP/M  from  tne  fiemex' 

db  '  Floppy  DiS/C  Drive.  .  .',0 


» 


EN  DIF 

J  1  oader_bi  os 

int_trp 

db 

c  r  ,  l  f 

db 

'Interrupt  Trap  Halt' 

db 

c  r ,  1  f ,  0 

io  byte 

rb 

1  jcnaracter  i  /o  redirection  byte 

unit 

ro 

1  Jselected  unit 

tracir 

rb 

1  Jselec ted  tractc 

sector 

ro 

l  ;  se lec t  ed  sector 

dma_adr 

rw 

1  Jselected  DMA  address 

dma”see 

rw 

1  Jselected  DMA  segment 

loc  StK 

rw 

1U0  Jlocal  stacS  for  initialization 

stKDase 

equ 

offset  $ 

*  system 

memo  ry 

segment  tacie 

segtabl 

e 

db  1  J1  segment 

dw  tpa_seg  Jlst  seg  starts  after  BIOS 

dw  tpa“len  Jand  extends  to  top  of  TPA 

•  ajcajcajc  ***:*********  *************  ***********  V*  W*  *********  ****** 

;  DISK  DEVICE  TABLES 

.  j*  V  W  W  ?WrWW?  *«**«  s*  W  w  VW  WWW  Sr  ws?v  w  w  wv  w 

Jtne  included  .cfg  file  below  maps  unit  number  to  disic 
Jdevice  type,  it  provides  tables  of  entry  point 
.addresses  for  use  by  init,  read  and  write.  Tnese 
jaadresses  must  appear  in  tne  appropriate  include 
Jfile  for  tne  particular  device  type 

include  cpmmast.cfg  Jread  in  configuration 

J ta  bie 

IF  loader_bios 

f 

t 

include  ldrmast.cfg  Jread  in  configuration  table 
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SNDIF 


•  loader  bios 


itne  Included  .lib  file  contains  dlss  definition 
Jtables  detailing  disx  cnaracte rlstics  for  tne  bdos 
i.lib  files  are  senerated  by  GENDEF  from  definition. 
;files  and  must  comply  witn  tne  allocations  made  in 
;tne  ccrrespondins  configuration  file. 


not  loader  bios 


appendix  d 


PROGRAM  LISTING  OF  CPMMAST.CFC- 


JProff  Name  : 
JDate  : 

JMolified  £jy : 
JFor  : 

JAdvisor  : 

♦Purpose  : 

I 

9 

9 


CFMMAST.CFG  (  Master  Configuration  for  CPM) 

25  April  1983 
Marfc  L.  Perry 

Thesis  (AEGIS  Modelin?  Group) 

Professor  Cotton 

Tins  code  is  an  include  file  w/ir  CFMEICS .As5. 
It  contains  tne  device  tables  for  access  to 
initialization,  read,  write  routines.  It 
also  allows  for  the  development  of  a  loader 
BIOS  . 


IF  not  loader  Dies 


*♦  DEFINE  nunits 

nunits  do  12  Jtotal  number  of  mass  storage  units 


ENDIF  Jnot  loader_bios 

;  INITIALIZATION  TASLE 

jintDl  contains  a  sequence  of  addresses  of  initialization 
Jer.try  points  to  ce  called  Dy  tne  PIOS  on  entry  after 

♦  a  cold  coot.  Tne  sequence  is  terminated  cy  a  zero  entry 

IF  master  and  not  load?r_bios 

•  _ _ _  _  _  _  ^  _ 

9  “ 

9 

intbl  dw  offset  mbeeis fc_ini t 
4w  offset  rxflop_init 
dw  offset  initsync 
dw  offset  init_login 
dw  offset  mic_Init 
dw  0 


; initialize  Buttle 
♦  initialize  ?.e me x 
Jinitiaiize  sync  variables 
Jinitiaiize  io^in 
JMicro polls  initialize 
;enn  cf  table 


intbl  dw  offset  m08i;dsC_ini  t  {initialize  BubDle 
dw  offset  rxflop_Tnit  {initialize  Remex 
dw  i)  ~  ;end  of  tame 

• 

7 

m  __  ^  —  M 

?  ———————  — 

ENDIF  {not  master  and  not 

; loader_Di os 

{  READ  TABLE 

;  rd.  t  o  1  and  wrtbl  are  sequences  of  lengtn  nunits,  containing 
{tne  addresses  of  tne  read  and  write  entry  point  routines 
respectively  wnica  apply  to  tne  unit  number  corresponding 
{to  tne  position  in  tne  sequence.  Tnese  and  tne  entry  pts 
{for  initialization  must  correspond  to  tnose  containec  in 
{tne  appropriate  include  files  containing  code  speciii'' 

{to  tne  devices. 


IF  not  ioade r  Dios 


7 

• 

7 

rd  tbl 

dw 

offset 

rrDBtfds  c_read 

;a: 

i  s 

a  bubble  memory 

dw 

offset 

rxf lop_read 

{B: 

i  s 

Remex  floppy  aisc 

dw 

offset 

rx  f iop_read 

;  C : 

is 

Remex  floppy  disc 

dw 

offset 

rxnard_read 

{ D  : 

i  s 

Remex  nard 

disc 

•d 

dw 

offset 

rxnard_read 

;e: 

is 

Remex  narc 

disc 

1 

dw 

offset 

rx.oard_read 

;  F : 

i  s 

Remex  nard 

disc 

a 

dw 

offset 

rxnard_read 

•  n 

7  yj 

i  s 

Remex  aara 

disc 

3 

dw 

offset 

mic_read 

;s: 

is 

Micro  polls 

disc 

z 

dw 

offset 

mi c_read 

{  I : 

is 

micropo li s 

disc 

l 

dw 

offset 

mi c_read 

;j: 

is 

Micropoiis 

disc 

<2 

d  w 

offset 

mi c_redd 

is 

r*i  cropo  li  s 

disc 

3 

dw 

offset 

mi c_read 

;l  : 

i  s 

vicrcpolis 

disc 

A 

f 

J 

WRITS  TABLE 

wrzci 

dw 

offset 

mDeedsc_write 

dw 

offset 

rxf lop_wri te 

d  w 

offset 

rxf lop_wrlte 

dw 

of f set 

rxaard_wrl  ce 

dw 

offset 

rxna  rd_wr i te 

dw 

offset 

rxftara_wri te 

dw 

o  f f set 

rxnard~wrlte 

dw 

offset 

mlc_wri  te 

dw 

offset 

mic_wr ite 

dw 

offset 

mi o_wrl te 

dw 

offset 

mi c_wr i te 

dw 

offset 

mic  write 

HOMS  TABLE 


nmt  bi 


dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 


mbB2ds£_aome 
rxf iop_aome 
rrf  lop_home 
rxnard_nome 
rxaard_dome 
rxna  rd_none 
rxnard_aome 
mic_aome 
mic_aome 
mi c_aome 
nic_aome 
mic  dome 


SELDSS  TABLE 


dsit  bi 


dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
d w  offset 
aw  offset 


mbSZdsic_seidsx 
rxf iop_seiisc 
rxf iop”seidsK 
rxaard~seids£ 
rxnard_selasic 
rxnara”seids!c 
rxnard^seidsx 
mi c_se ids  <e 
mic_seidsse 
nic_seiisS 
mio_seids  te 
mic  seidsx 


3ETTRK  TABLE 


trfct  bi 


dw  offset 
d  w  offset 
dw  offset 
dw  offset 
aw  orrset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 
dw  offset 


mcyi’dsx^se  1 1  nc 
rxf  iop_set  trie 
rxf iop_settri 
rxaara_set  trie 
rxr.a  rd_se  1 1  rie 
rxnard_set  trie 
rxna  rd_se  t  trie 
mi  c_se  t  trie 
mlc_settri 
mi  c_se  t  trie 
mic~settric 
mic  settrx 


SETS  EC  TABLE 


sect&l  dw  offset  rroBCisic_setse 
dw  offset  rxficp_setsec 
iw  offset  rxf icp_se tsec 
dw  offset  rxnard_setsec 
dw  offset  rxnarl_set sec 
dw  offset  rxnard_se tsec 
lw  offset  rxr.ard_se  tsec 
dw  offset  :nl  c_se  t  sec 
dw  offset  nic_setsec 
dw  offset  mic_setsec 
dw  offset  nio_setsec 
dw  offset  mic-setsec 


APPENDIX  E 


PROGRAM  LISTING  OF  MICHARD . A86 


Pros  Name  :  MICHARD. A8b  (Mlcropoiis  Hard  Disk) 

Date  :  13  April  1983 

Written  »y  :  Mars  L.  Perry 

For  :  Tnesis  (AEGIS  Modeling  Group) 

Advisor  :  Professor  Cotton 

Purpose  :  Tnis  coae  is  an  include  file  w/in  the 

BIOS.  It  contains  tne  Hardware  dependent 
code  for  tne  Micropolis  DisK  Drive 

EQUATES 

W  V  V  W  sgeage  XV  V  XX  X  VV  X  X  X  X  *  X  XX  X  X  X  X  X  X  XX  X  X  X  X  X  X  X  X  XX X  XX  XX  X  X  X  XX  X  X  X  V 


-  EQUATES  FOR  THE  8255  PIO 


mic_por te 

equ 

0cen 

mlc  porta 

equ 

0c8h 

mic_porto 

equ 

0Cah 

mic_por tc 

equ 

0ccn 

nic_node2_0_ou  t 

• 

equ 

0c0n 

• 

>  --------------- 

• 

EQUATES 

FOR  T 

> 

mlc  mode  port 

equ 

ekjden 

mic_count_port 

equ 

00a  0n 

mic  mode  cntl 

eau 

0030n 

mic  Iso  value 

equ 

0cn 

mic_msD_va lue 

equ 

30  ft 

J 

• 

EQUATES 

FOP.  T 

*]ic_icwl 

eau 

I3n 

mic  lew 2 

equ 

40n 

mic_icv4 

equ 

Kfh 

mic  ocwl 

equ 

0tf  n 

mic  pic  portl 

equ 

eecsjji 

mlc  pic  port2 

equ 

eec2n 

» command  port 
; oi-airectionai 
Joutput  port 
Jcontrol/status 
;mode  for  8255 


*'mcde  for  timer 
^counter  port 
•mode  control  value 
Jleast  sis  value 
Jmost  si?  value 


Jcontrol  word  1 
^control  were  2 
5 contro 1  word  4 


Jicw  port 
>ocw  port 


mic_rs  tro_on 
mic_rs  t  rd~of f 
mic  wstro  on 


MICROPOLIS  EQUATES 

equ  000010100 
equ  0000  00100 
equ  000001100 


;reac  signal 
Jreaa  signal  off 
; write  signal 
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mic  wstrb  off 

equ 

eeeaB  010b 

Write  signal  off 

mic_stat 

equ 

00000000b 

Jstatus  signal 

mic  cmd 

equ 

000000000 

Jconmand  sienal 

mic  lata 

equ 

00000001b 

Jdata  signal 

mic  strb  oa 

equ 

00000010b 

Jinput  latcn  signal 

mic  strb  off 

equ 

00000011b 

;  la  ten  signal  off 

mic  ac£_on 

equ 

000001000 

; output  signal 

mic  a eg  off 

equ 

00000101b 

Joutput  signal  off 

mic  en  sel 

equ 

00000010b 

.select  enaoie 

mic  stndrd 

equ 

00010110b 

.normal  reset 

mi c_irdy_mas  £ 

equ 

00000001b 

Jinput  ready 

mic  ordy  mass 

equ 

00000010b 

Jcutput  ready 

mic  busy  mas£ 

equ 

00010000b 

»  busy 

mic_mas  £ 

equ 

10100000b 

Jattn  or  dreq 

mic  atta  mass 

eau 

10000000b 

Jattn  only 

mic  dreq  masic 

equ 

00100000b 

Jdreq  only 

mic  cmd  mask: 

equ 

00000011b 

'.command 

mic  rd  cmd 

equ 

04en 

.micropoiis  read 

mic_wr_cmi 

equ 

04?n 

Jmicropolis  write 

• 

y*  -*■  «  •*  y* 

• 

-  o  e  c  t#  o  r 

1 

mi c_una 

equ 

byte  ptr  [eXJ 

.name  for  byte  at  EX 

mic  oiicsiz 

equ 

16384 

; C P/M  allocation  size 

mic  nstsiz 

eau 

bl  2 

;nost  disK  sect  size 

mic  nstspt 

equ 

?A 

Jnost  disK  sects/tr.t 

mic  nstolK 

eau 

mic  r.stsiz/12e;CP/M  sects/nost  buff 

mic  seesnf 

equ 

2 

;  1  o<c2 f  mic  nst  c  1  tc } 

mic_cpmspt 

equ 

mic_nstblfc  * 

mic_astspt 

»'CP/.y  sec  to  rs/tracic 

mic_secmsi 

equ 

mic  nstoii-l 

Jsector  masic 

mic_wra 11 

equ 

0 

Write  to  allocated 

mic_wrilr 

equ 

1 

Write  to  directory 

mic_vrual 

equ 

•0 

Write  to  unallocate 

mlc_lni t_l : 
mic  init  2: 


mov  a  1 ,mic_s tr b_of f 
out  mic_porte,aI 
mov  a  1 ,mlc_en_s el 
out  mic_porto,al 
mov  bx, offset  micrst 

call  pmsg 
mov  cx.lfc1 
mov  ax, 27777 
dec  ax 

jnz  mic_init_2 
dec  cx 

Jnz  mic_init_l 
call  mic_status 
cmp  a l ,mlc_s tnard 
jz  mlc_inlt_3 
mov  bxToffset  micrst 
call  pmsg 


{insure  strobe 
; i s  off 

Jset  select  arc 
{ena  Die 

msgjoutput  reset 
{wait  1  second 


Jset  tne  status 

Jtften  return 
errJoutput  error 


load  tne  vector  table  for  tne  interrupt  Handler 


mic  init  3: 


push  e s 
mov  ax,H 
mov  es.ax 

mov  ax, offset  mic_int_7e 
mov  es :mic_ip_7fe5,ax 
mov  es :mic_cs_70, cs 
pop  es 


Jwant  to  aidress 
Jabsolute  0 

{interrupt  nu.mDer 
Jstcre  inst  ptr 
Jand  cs  value 
{restore  extra  seg 


initialize  tne  interrupt  controller 


mov  ai,mic_icwl 
out  mic_pic_portl,al 
mov  ai,mic_rcw2 
out  mic_pic_port2,ai 
mov  al,mic_Icw4 
out  mlc_pic_po rt2 , al 
mov  al,mic_ocwl 
out  mi c_pic_po rt2 , ai 


{control  worn  1 
{output  it 
{control  word  2 
{output  it 
{control  word  4 
{output  it 
{set-  mast  resister 


initialize  tne  timer  and  set  tne 


status  byte 


pusn  es 

mov  ax.cmemseg 
m.ov  es,ax 

mov  mic_stat_byte,£ffn 
pop  es 

mov  ai ,mic_mode_cn tl 
out  ml c_mode_po rt , ai 
mov  al ,mic_ls b_value 
out  mic  count  port.ai 


{save  extra  ses 
{ to  address  common 

{any  non-zero  vai 
{dore  wit.o  status 
{set  mode 


{lew  count  value 


m o v  al  fmic_msb_value 
out  mic_count_port ,al 
sti 
ret 
J 

;  cow  set  up  tee  interrupt  nandler 
« 
f 

mi c_int_73 : 

pusa  ax 


jnign  count  value 
Jstart  timer 
J restore  mts 
Jand  return 


Jsave  state 


set  up  local  stacK  for  interrupt  nandler 


nic  wr  l: 


mic  wr  2: 


mic_real_l : 
mic  reaa  2: 


mov  sav_ptr,s? 
mov  sav_se<e,ss 
mov  sp, offset  int_oase 
mov  ax.es 
mov  ss  ,ax 
pusa  es 
pusn  ox 
pusa  cx 
pusa  dx 

mov  ax.cmemsee 
mov  es.ax 

loc£  mov  ai,mic_stat_ 
emp  al.tftfn 
jaz  mic_term_2 
mov  al ,mic_cmd_oyte 
and  ai,mic_cmd~masu 
emp  aif02 
jz  mic_real_l 
call  mic_send 

call  mic_status 

test  al.mlc^masK 

jz  mic_wr_l~ 

test  al.mic^a ttn_masK- 

Jr.z  mlc_term 

mov  dx  ,512 

xor  ox ,  bx 

mov  al  ,mic_Duff  [bxj 
call  mic_la ta_out 
inc  dx 
dec  dx 

Jaz  mic_wr_2 
Jmp  mic_wr_l 


call  mic_send 
call  mic_status 
test  al.mic jrasic 
Jz  mic_reaa-_2 


Jsave  stK  pointer 
Jsave  segment  ree 
Jset  local  pointer 
jset  local  seemeat 


Jmaxe  common 
Jaddressacie 
oyte  Jcaecic  status 
J action,  needed? 
Jno  taen  return 
Jread  or  write? 

J  react? 

Jmust  te  write 

Jest  status 
Jdreq  or  attn? 
Jieep  cnec-cing 
Jwas  it  attn? 
Jyes,  all  done 
jset  counter 
Jclear  ox 
Jsend  data 


JcnecK  status 
Jfor  final  result 

Jsend  command 
Jget  status 
Jdrea  or  attn? 
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mic  reaa  3; 


mic  term: 


test  ai ,mic_attn_masx 
jnz  mic_term 
mov  dx,5l2 
xor  bx,bx 
can  mic_data_m 
mov  mic_buf f  IdxJ ,al 
inc  Ox 
dec  dx 

Jnz  mic_read_3 
jmp  mic_read~2 

call  mic_Dusy 

call  mic_irdy 

call  mic_aata_in 

and  al,£ fft 

cup  a l , K n 

jz  mic_term_l 

mov  mic_stat_byte,  fc'ffn 

jmp  mic”term_? 

mov  mic_stat_byte . 0an 

pop  dx 
pop  cx 
pop  ox 
pop  es 


;  restore  old  stacic  segment  and  pointer 

mov  sp,sav_ptr 
mov  ax,sav_se^ 
mov  ss,ax 


Jwas  it  attn? 

Jyes  ,all  done 
fmust  ce  dreu 
Jclear  dx 
;get  data 

Jstore  it  in  Duffer 


> continue 
»get  status 

fwait  on  cntri 

;?et  termination 
flower  4  only 
; success? 

; indicate  failure 


mic_term_l 
mic  term  2 


Jindicate  success 
frestore  all  regs 


before  final  pop  of  ax  reload  counter 

mov  al ,mic_ls b_value  fleast  sig  value 


mov  al ,mic_ls b_value 
out  mic_count_port ,al 
mov  al  ,mlc_ms D_value 
out  mic_count_port ,ai 
pop  ax 


Jcour.ter  starts 


END IF  ! mas 

te 

r  and  not 

;  loa 

de 

r  bios 

;  n  o  special  action 


IF 


not  loader  Dios 


;H0ME  entered  frop  fcOME  jupp 

jnone  tne  selected  disK 
pic_nope : 

rrov  al ,mic_nstwrt  Jcnece  for  penning  write 

test  ai,ai 
jnz  micjiomed 

pov  pic~nstact,Z  ,'clear  cost  active  flag 

mic_no-ned : 

ret 


;  SELECT  DISK  entered  from  SELLSK.  jump 

pic_sel  dsic: 

Jselect  disi 
pov  cl.unit 
pov  pic_sexdsK:,el 

»is  tnis  tne  first  activation  of  tne  drive? 
test  DL.l  Jiso  =  0? 

jnz  mic_selset 

»tnls  is  tne  first  activation,  clear  nost  tuff 
Tiov  pic_nstact  ,0 
mov  mic~unacnt,0 
mic  seiset : 


SELECT  TRACK 


entered  after  SETTRK  junp 


mic_set  trt : 

Jset  trac£  given  ty  registers  CX 

•nov  pic  sefctrlc.CX  JtracK  to  seetc 


J  SELECT  SECTOR 


entered  after  SETSEC  jurp 


Pic_setsec : 

Jset  sector  given  Dy  register  cl 

7ov  pic  sescsec.ci  Jsector  to  seeic 


entered  after  READ  Iupo 


Jread  tne  selected  CP/M  sector 

pov  pic  unacnt,0  iclear  unallocated 


mov  mic_readop ,1 

mo v  mic“rsflag,i 

tov  mi c_wrtype ,mi c_wrual 

jmp  mic”rwoper 


WRITE 


Jread  operation 
Jmust  read  data 
Jtreat  as  unailoc 
Jperforn  tne  read 


entered  after  WRITE  jump 


mic_wri te: 

iwrite  tne  selected  CP/M  sector 

nov  mi c_readop  ,fcJ  Jwrite  operation 

tov  mi c~wrtype  ,cl 

cmp  cl,mic_wruai  Jwrite  unallocated? 

jnz  mic_cn£una  JcnecR  fcr  ur.ailoc 

f 

»  write  to  unallocated,  set  parameters 


tov  mi c_unacn t , ( nic_DlKsi z /126 )  Jnext  unaHo^  recs 
mov  ai  ,mi c_seicds s  JdisR  to  sees 

mov  mi c_unad sir, a  1  Jmic_unaasK  =  n'ic_seKds‘c 

mov  ax ,mi c_seictrls: 

mov  mic_unatrK,ax  Jmi  c_ur.  at  rff  =  mic_sejctrK: 

mov  al ,mic_seKsec 

mov  mi c_unasec ,a 1  »mic_ur.asec  =  mic_seicsec 

—  Sector  SlocK/DeblocK  Sucroutines  - 


mic_cnsuna : 

Jcnecfc  for  write  to  unallocated  sector 

mov  ox, offset  mic  unacnt  Jpoint  UNA 

;at  UNACNT 

mov  al,mic_una  !  test  al,al  Jar.y  ur.ailc  remain? 

jz  mic_alloc  Jsiip  if  not 

f 

J  more  unallocated  records  remain 

dec  al  jmic_unacnt 

J  =  mlc_unacnt-l 

mov  mic_una,ai 

mov  al  ,mic_seirdss  Jsame  disi? 

mov  EX, offset  mic_unadSK 

cmn  ai,mic_nna  Jmic_sesrds£ 

;=  mic_unadsic? 

jnz  mic_alloc  Jsxip  if  not 

I 

;  iisxs  are  tne  same 

mov  AX,  micjinatrx 
cmp  AX,  mlc~seKtrK 
jnz  mic_alloc 


Jsiip  if  not 


traces  are  tne  same 
mov  al ,mic_seKsec 

mov  BX, offset  mic_unasec 


cmp  ai,mic_una 
jnz  mic_alloc 


{same  sector? 

{point  ur.a 
Jat  nic_unasec 

;mic_se*csec 
;=  micjunasec? 
jSKin  if  not 


matcn,  move  to  next  sector  for  future  ref 
inc  mic_una  ;  micjunasec 

{  =  mi  c_unasec-l 

mov  al,mic_una  Jem  of  tracic? 

cmp  ai ,mic_cpmspt  {count  CP/M  sectors 

jo  mic_noovr  {sicip  if  ceicw 


« 

min 


overflow  to  next  tracs 
mov  mic_una,0 
inc  mic  unatrc 


{mic_unasec  =  0 
{mic_unatrJc 
{=  mic  unat rs+l 


mic 


noo vf : 

{matcn  found,  marie  as  unnecessary  read 

mov  mic_rsflag,0  {mic_rsflag  =  0 

jmps  mic_rwoper  {perform  write 

alloc: 

{not  an  unallocated  record,  requires  pre-reaa 
mov  mlc_unacnt,Z  J m i c _u n a c n t  =  0 

mov  mic_rsfiag,l  {mic~rsf lag  =  1 

{drop  tnrousft 
{to  rwoper 


Common  code  for  R3AD  and  dP.ITS  follows 


mic_rwoper : 

{enter  nere  to 
mov  mic_erfla?,c 
mov  al  ,""mic_seKsec 
mov  cl,  mic~secsnf 
snr  al,ci 
mev  mic_set!:st  ,a  1 


perform  tne  read/write 

{no  errors  (yet) 
{compute  nost  sector 


{ nos t  sect  to  seei 


{active  nost  sector? 
mov  ai , 1 

xeng  ai ,mlc_nstact  {always  o^comes  1 

test  ai,ai  {was  it  already? 

jz  mic_filnst  {fill  nost  if  not 


{nost  duffer  active,  same  as  sees  Duffer? 


mov  al,mic_setdst 
ciip  al ,mic~cstist 

jnz  !nic_noina  ten. 

isame  dist,  same  tract? 
mov  ax,mic_nsttrt 
emp  ax ,mic_settrt 

jnz  mic_nomatcn 


Imic_setdst 
1  =  Tic  astest? 


most  tract  same 
las  seet  tract 


;same  dist,  same  tract,  same  buffer? 
mov  al ,mic_setns t 

emp  al  ,mic  "fist-sec  Imic_setr.st 

1  =  micjistsec? 

jz  mic_matcn  ;stip  if  maten 

_nomatcn: 

Inroper  dist,  but  not  correct  sector 
mov  ai,  mic_nstwrt 

test  al,al  ;"dirty"  cuffer  ? 

jz  mic_fiinst  ;no,  don't  write 

call  mic_writenst  lyes,  clear 

;nost  buff 

.f  Hast : 

.'may  nave  to  fill  tfte  dost  Duffer 
mov  al ,mic_setdst  !  mov  mi  c_astdst  ,ai 
mov  ax ,mic~sefctrt  !  mov  mic~asttrt,ax 
mov  al ,mic_setast  !  mov  mi c~ns tsec ,al 
mov  al ,mic_rsf lag 


test  al,al 
jz  mic_fiiastl 

call  mic_readnst 

.filnstl: 

mov  mic  astwrt  ,0 


I  need  to  read? 


lyes,  if  1 


Inc  pending  wrt 


,mat  cn : 

Icopy  data  to  or  from  buffer  depending  on  "mic_readop 
mov  al ,mic_setsec  imast  buffer  numbe 

and  ax , mi c_secms t 

mov  cl,  7  !  snl  ax, cl  ,‘snift  left  7 

;  ( *  128  =  2**7  ) 

ax  aas  relative  nost  buffer  offset 


add  ax, offset  mic_nstouf 

mov  si, ax 

mov  di,dma_adr 


,'ax  nas  tuff  addr 
Iput  in  si  reg 
luser  Duffer  is 
Ides  t  if  read  op 


pusil  ES  !  pusn  ES 
mov  SS,dma_seg 


mov  cx,12H/2 
mov  al ,mi c_readop 
test  al.al” 
jnz  mic_rwmove 


.save  seg  regs 

.'set  destse? 

»*to  tne  users  seg 
; S I/DI  am  DS/2S 
; i s  swapped 
; i f  write  cp 
;iengtn  of  move 

fwfiicn  way? 

»s&ln  if  read 


write  operation,  marit  and  switcn  direction 
mov  mic_nstwrt,l  »mic_nstwrt  =  1 

;  (lirty  Duffer  no*) 

xcng  si,di  ; source /a  est  swap 

mov  ax,DS 
mov  ES,ax 

mov  DS,dma_seg  .setup  ES,ES 


_rwmo ve  : 

cid  !  rep  mov s  A7.,AX 
pop  ES  !  pop  DS 


.'move  15  nit  words 
.restore  seg  regs 


data  nas  ceen  moved  to/from  nost  Puffer 
cmp  mic_wr type ,mic_wrii r  Jwrite  directory? 

mov  al ,mic_erf lag  .in  case  of  errors 

jnz  mic_re turn_rw  .no  processing 

"iear  nost  buffer  for  directory  write 
test  ai.ai  , ’errors? 

Jnz  mi c_re  turn_rw  »s.<ip  if  so 

mov  mi  c_ns  twrt  .buffer  written 

call  mic_writenst 
mov  al ,mic_erf lag 
i  c_re turn_rw : 
ret 

MICRO PC LIS  HARE  DISK  SUBROUT  IN SS 


mic_readnst: 

mov  mic_dir,0 

ENDIF 


.indicate  read  or  write 


.not  loader  bios 


IF  master  and  not  loader  bios 


cli  Jclear  int  to  be  sure 

call  set  common  Jset  resource 


t 


ENDIF 


>*master  and  not 
Jioader  Dios 


IF  not  master  and  not  loader  bios 


call  request 


Jset  resource 


ENDIF 

;no  t 

master  and  not 

;  loader 

IF  not  ioader_bios 

mov  Dl.mic  rd_cmd 

»set  up  read  cmd 

call  mic  set 

;set  up  parameters 

call  mic_trans 

;  transmit  tr.em 

call  mic  trans  Duff 

fset  tne  buffer 

call  release 
mov  al ,mic_resul t 

jrelease  resource 

mov  mi c_erf lag  ,ai 

♦establisn  error 

ENDIF 

ir.ot  ioader_bios 

IF  master  and  not  loader 

sti 

_bios 

;  restore  int 

ENDIF 

Jmaster  and  not 
;  loader 

IF  not  loader_bios 

re  t 


t 


mic_wri tenst : 

•no v  mi c_li r ,  1 
mov  ai ,mic_ns t_dsx 
cmp  al.user 
jnz  mic_wrt_err 


Jindicate  rd/*rt 
» c Kr  for  valid  wrt 

; indicate  error 
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» 


S  N  VI  F 


.not  ioaler  cios 


IF  master  and  not  ioader_oics 
> - 


cli  .clear  to  be  sure 

call  set  common  .set  resource 


ENDIF  .master  and  not 

;  1 oader 

IF  not  master  and  not  loader  dies 


call  request 


.set  resource 


ENDIF 


IF  not  loader  cios 


mov  bl ,mic_wr_cmd 
call  mic_set 
call  mic”trans_t>ut'i‘ 
call  mic”trans 
call  release 
iov  ai  ,mi c_result 
iov  mic_ert-las,  al 
jrp  mic_vrt_ret 
mic_wrt_err: 

r ov  bx, onset  mic_wrt_mss 
call  pmss 

iov  mic_erf lag,25ffn 
mic  wrt  ret: 


Jnot  master  arc  not 
;  i  cade  r 


Jset  up  write  cml 
,'set  up  parameters 
^transmit  ourt'er 
Jtransmit  parameters 
^release  resource 


.'error  message 
Jindicate  tne  error 


SNDIF 


not  loader  bios 


IF  master  and  not  loader  Dios 


sti  .restore  in t 


;ma5ter  and  not 
; 1 oace  r 


iee 


ENDIF 


IF  not  loader  Dios 


rs  t 


mic  set: 


pusn 

es 

pusn 

ax 

pusn 

cx 

pusn 

DX 

mov 

ax, cmemse  ? 

Jmaic®  oorrcn  addr 

mo  v 

es  ,ax 

mov 

mic_cmd_Dyte , D1 

Jtyue  of  command 

mo  v 

Dl.mic  Kst  dss 

{adj  ror  neaa  num 

SU  D 

Dl  ,7 

mov 

Cl  ,4: 

sni 

D 1  ,  C  1 

mov 

mi c_parml , Dl 

{unit  am  need  set 

mov 

cx , mic_ns  t_t  r k 

mo  v 

mi c_parm2  ,cl 

mo  v 

mi c_parm3 ,cn 

; t rtc  now  set 

mov 

cl ,mic_nst_sec 

mo  v 

mic_pa  rm4  ,c  1 

{sector  set 

mov 

mic_parm5 ,1 

{only  one  to  process 

mov 

mic_pa  rm(o  ,0 

{not  used 

mo  v 

mic_eo_Dyts , 

{set  so  eyte 

pop 

DX 

{restore  regs 

pop 

cx 

pop 

ax 

pop 

ret 

es 

ic_trans : 

pusn  es  {save  ress 

pusn  a i 

mov  ax.cmemseg  {maice  common  addr 

mov  es,ax 

mov  nic_stat_Dyte  ,0  Vindicate  ready 


ENDIF  »notlcader_Dios 

IF  master  and  not  loader  Dios 


ENTIF 


IF  not  loader  bios 


mi c_trans_l : 

mov  al ,mic_stat_byte 
cmp  al,0 
jz  mic_trans_l 
cmp  al,{Jan 

jz  mic_success_vrite 
mov  mi c_re suit  ,0f fn 
jmp  mi c_f ai l_wri te 
mi c_success_wri te : 

mov”mic_resuit ,00n 
mic_f ai 1 _ w  ri te : 

pop  ax 
pop  es 
re  t 


; master  anc  r.ot 
;  loader 


"tge t  status 
;  ionev 

;  success? 

; indicate  failure 


mir  trans_Duff: 

pusn  es  jsave  re<?s 

pusn  ds 
mov  ax.cs 
mov  es.ax 

mov  di.offset  mic_nstbuf 
mov  ax .cmemseg 
mov  ds.ax 
mov  si,5120n 
mov  cx,256 
cmp  mic_lir,2 
jz  mi c_trans_buff _1 
xctig  si.di 
mov  ax, ds 
mov  es.ax 
mov  ax.cs 
mov  ds,ax 
mic_trans_buff_l : 
cld 

rep  movs  ax  ,ax 
pop  ds 
pop  es 
re  t 


ENDIF 


»nct  loader  Dies 
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IF  MA 


Jroutines  are  only  u 
ana  not  loader_oios  ;  by  interrupt  ramie 


jSubroutine:  mic_status 
JEntry  Conditions:  none 

jExit  Conditions:  ai  contains  status  of  disfc 
jRegisters  altered:  ai 
JSuDroutines  called:  none 
jDescri pti on  : 

;  Tills  subroutine  reads  and  returns  t.ne  current 

Jvalue  of  the  yicropolis  disK  controller's  status  port. 


mic  status 


mov  al,mic_stat 
out  mic_porte ,al 
mov  al ,mic_rs t r b_on 
out  mic_porto,ai 
mov  ai  ,mic_strb_on 
out  mic.porte.al 
mov  ai , m i c_s t r b_of f 
out  mic_porte,ai 
mov  a  1  ,mi c_rs t r b_o f f 
out  mic_portb,ai 
in  ai  ,mic_porta 
re  t 


jenabie  status  ii 


jturn  on  real 


;iatcn  tne  status 


Jturn  off  real 
.bring  in  status 


Subroutine:  mic_send 

Entry  conditions:  parameters  are  calculated  and  in 

tne  byte  variaoies 

Exit  conditions:  parameters  and  command  nave  been  sent 

Registers  altered:  none 

Subroutines  called:  mic_busy ,mic_ordy , 

mic_iriy,mic_rmd_out ,mi c_ia ta_cut 

Description : 

Tne  command  byte,  six  parameter  bytes 
and  tne  go  byte  found  in  tne  data  area  are  sent  to 
tne  dis£  controller. 


mic  send: 


mic  send  1 


call  mic_busy 
call  mic_ordy 
call  mic_cmd_out 
xor  bx , bx 
mov  di,7 
call  mic_busy 
call  mlc_ordy 
mov  a l , mi c_pa rml L bxj 
call  mic  data  out 


jwait  for  cntri 

jsend  out  cmd 
.clear  b  x 
Jset  count  value 
Jwait  for  cntri 

Jget  parm 
Jsend  it 
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JcLone? 

; ee t  another 


me  c  x 
dec  a  i 

Jnz  mic_send_l 
ret 


Subroutine:  mic_cmd_out 

Entry  conditions:  'ordy'  signal  nas  been  issued  dv  tne 

4 i s K  controller  and  'cmd_oyte' 
contains  tne  command  to  ce  sent. 
Exit  conditions:  none 
Registers  altered:  none 
Subroutines  called:  none 
Description: 

Tne  command  in  tne  byte  variable  'cnd_cyte' 
is  sent  to  tne  diss  controller. 


mic_cmd_ou  t : 

pusn 
mov 
out 
mov 
ou  t 
mo  v 
out 
mov 
out 
mov 
out 
mov 
out 
pop 
ret 


ax 

al ,mic_cmd_by te 
mic_porta ,al 
a  1 ,mi c_cmd 
mic_porte , al 
a  1 ,mic_acK_on 
mic_porte  ,al 
a  1 ,mic_v$  tre_on 
mic_port  b ,ai 
al ,mic_vs  tro_off 
mic_portb ,a 1 
al  ,mic_acK_oi'f 
mic_porte , al 
ax 


;save  ax 

;  to  bi-directional 
jenabie  cma  line 

Jactivate  output 
;  buffer 

Jpuise  tne  write 
; stro  ce 


;ae-acti vate  tne 
;  output  buffer 


JSubroutine:  mic_data_out 

jEntry  conditions:  'ordy'  signal  nas  been  issued  by  tne 
;  4 1 s k  controller  and  al  contains  value 

;  to  ce  sent. 

JExit  conditions:  none 
JReffisters  altered:  none 
JSubroutines  called:  none 
; Descri pti on : 

;  A.  byte  of  data  is  output  to  tne  'licropolis 

MisK  unit . 

} 

mic_4ata_out : 

pusn  ax  fsave  ax 

out  mic_porta,ai  ;to  bi-directional 

mov  a  1 ,mic_la ta  Jenabi?  data  line 

out  mlc_porte,ai 


mov  al ,mic_acx_on 
out  mic_porte,al 
mov  al tmic_wstrb_on 
out  mic_portb,al 
mov  ai,mic_wstrb_off 
out  mic_portb ,ai 
mov  al  ,mic_aojc_of  f 
out  mic_porte,ai 
pop  ax 
re  t 


iactivate  output 
»  buffer 

jpuise  tne  write 
»*  strobe 


Jde-activate 
» output  buffer 
; res  tore  value 


Subroutine:  mic_iata_in 

Entry  conditions:  'irdy'  signal  Has  been  issued  by  tne 

disic  controller 

Exit  conditions:  al  contains  data  byte 
Registers  altered:  al 
Subroutines  called:  none 
Descri pti on : 

A  byte  of  data  is  input  from  tne  ^icropoiis 

disfc  unit . 


mic  data  in: 


mov  al,mic_data 
out  mic_?orte,al 
mov  al  ,mic_rstr b_on 
out  mic_portb,al 
mov  al ,mic_stro_on 
out  mic_porte,aT 
mov  al ,mic_s tr b_of f 
out  mic_porte,a! 
mov  al  ,mic_rstrb_off 
out  mic_portb,al 
in  al ,mic_porta 


Jenable  data  line 

Jturn  tne  read 
;  on 

jlatcn  tne  data 


Jturn  off  tne 
Jread  signal 
>  bring  in  data 


Subroutine:  mic_busy 
Entry  conditions:  none 

Exit  conditions:  disk-  controller  nas  issued  'not  busy' 

signal 

Registers  altered:  none 
Subroutines  called:  mic_status 
Descri ption : 

Tne  executing  program  will  wait  nere 
until  tne  disi  controller  issues  tne  'not  busy'  signal 


mic_busy : 
mic_Dusy_l : 


pusn  ax 

call  mic_status 
test  al  ,mic_busy_masK 
jz  mic_busy_l 


Jsave  ax 
;get  status 
J  busy? 


pop  ax 
re  t 


; Su  broutine: 

mi  c_i  rdy 

.'Entry  conditions:  rone 

;Exit  conditions:  diSK  controller  nas 

issued  'irdy' 

f 

signal 

, 'Registers  altered:  none 

.'Subroutines 

called:  mic  status 

;Eescription: 

f 

Tne  execution  of  tne 

program  will 

Jwait  nere  until  'iriy'  is  issued  ny 

• 

tne  controller 

nic_irdy: 

pusn  ax 

,'save  ax 

mi c  irdv  1 : 

call  nic_status 

.get  status 

test  al ,mic_irdy_mas2 
jz  mic_irdy”l 

; ready? 

pop  ax 

.restore  ax 

re  t 

;  ready  r.cw 

Subroutine:  mlc_ordy 
JEntry  conditions:  none 

,'Exit  conditions:  distf  controller  nas  issued  tne  'orcy ' 

;  signal 

.Registers  altered:  none 

Subroutines  called:  rric_status 

.'Description : 

Tne  execution  of  tne  program  will  wait 

;nere  until  'ordy'  is  issued  by  tne  controller. 

• 

» 

mic_oriy: 

pusn  ax 

mic_ordy_l:  call  mic_status 

test  ai ,nic_orly_masK 
j z  mic_ordy_l 
pep  ax 
ret 


.save  ax 
,'get  status 
5  ready? 

»’r.ot  yet 


Subroutine:  get_cormon 
get_common : 

pusn  es 
pusn  cx 

mov  ax.cmemsee 
mov  es.ax 
call  ticKet 
emp  bx.server 


fuaxe  common 
Jmemory  addressable 
Jeet  ticKet  number 
;if  ticicet  =  server 


lbtt 


get_common_2 : 


Je  get_common_4 
mov  c x,d count ” 

asc  cx 

Jnz  get_common_2 


;  tner.  1  one 
•delay  ns re 


Jcnecs  'licropolis  status  oyte 

cmp  mic_s ta t_by te , C50n 
je  get_common_3 
cmp  ox, server 
je  get_common_4 
mov  cxTacount” 
jmp  2et_commou_2 

» a  status  oyte  of  0  needs  an  interrupt 
get_common_3: 

int  70 

mov  cx,dcount 
jmp  get_common_2 


•execute  int 


set  common  4: 


pop  cx 
pop  es 
ret 


•end  of  routines 
•  used  by  interrupt 


not  loader  bios 


-  ^icropolis  Interface  Packet 


eseg 

org  119n 

mic_ip_7Z  rw  1 

mic_cs~70  rw  1 

org  5000n 


r-'v 

mlc_sta  t_byts 

rb 

1 

Jstatus  byte 

t 

mic_cmd_by te 

r  b 

1 

•command  code 

*• 

mic_parml 

rb 

1 

;  parameters 

fc— 

mlc~parn2 

r  b 

1 

r  \ . 

mic_parm3 

rb 

1 

l\'  ' 

mlc_parm4 

rb 

1 

£V*  , 

mic_parm5 

r  b 

1 

r-: 

■  •  • 

r- -  • 

mic~parm6 

rb 

1 

mic_20_byte 

rb 

1 
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OTg 

5100n 

ml c_ Buff 

rb 

512 

;  buffer  for  da  ta 

# 

U4  <■ 

ki 

1 ™  ~~  ——  —  —  —  ——— 

!ii  faiiauACD 

cseg 

$ 

micrst  mse 

db 

cr.lf ♦  'Micropolis  Controller  ' 

db 

Resetting 

•  •  • 

.45 

micrs  t_err 

lb 

cr.lf,  Micropolis  Disic  Reset  Error 

d  b 

cr, if , 'Use 

of 

Drives  K  -  L  will 

db 

produce  unpr 

edictabie  results' 

d  b 

c  r ,  1  f ,  l  f ,  0 

Mic  wrt  mss 

d  b 

cr , if  ,  'Vfri  te 

Access  net 

i  b 

'Pe rmi t  ted 

on 

Tnis  ' 

db 

'Drive',0 

J  space  for 

local 

stacK 

int  stact 

rv 

100 

int  Base 

equ 

offset  $ 

sav_ptr 

rw 

1 

sa v_seg 

rw 

1 

mic  lir 

r  b 

1 

Jrd/wrt  direction 

mic  result 

rb 

1 

Jresuit  of  ri/wrt 

mic  set  ds£ 

rb 

1 

Jseet  list  number 

mic  seic  tr2 

rw 

1 

jsees  tract  number 

mic  set  sac 

rb 

l 

,‘seeic  sector  number 

mic  nst  1st 

r  b 

1 

jnest  list  number 

mic  nst  trK 

rw 

1 

Jnost  tract  number 

mic  nst  sec 

rb 

1 

jnost  sector  number 

mic  set  nst 

rb 

1 

Jseet  snr  micsecsnf 

mic  nst  ac t 

rb 

1 

jnost  active  flae 

mic  nst  wrt 

r  b 

1 

jnost  written  f las 

mic  una  cnt 

rb 

1 

junalloc  rec  cnt 

mic  una  1st 

rb 

1 

Jlast  unaiioc  list 

mic  una  trK 

rw 

1 

;iast  unaiicc  tract 

mic  una  sec 

r  b 

1 

Jlast  unalloc  sect 

mic_erf lag 

r  b 

1 

Jerror  reporting 

mic  rsfla? 

rb 

1 

jread  sector  flae 

mic_reaco  p 

r  o 

1 

J 1  if  rd  operation 

mic_wrtype 

rb 

1 

Jwrt  operation  type 

mic  nstcuf 

rb 

mic  nstsiz 

jnost  buffer 
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ENDIF 


APPENDIX  F 


PROGRAM  LISTING  OF  CPMMAST . DEF 


Tne  following  dis«  definition  statements  were  used  wit 
GSNDEF  facility  to  generate  tne  disic  parameter  tables. 


disKs  12 

disKdef  0,1,26,0,1024,71,32,0,2 
disKdef  1,1,26 ,5,1024,243,64, 64 , 2 
disKdef  2,1 

disKdef  3,1,156,0 ,16364,276,126 ,0,1 
disKdef  4,3 
disKdef  6,3 
disKdef  6,3 

disKdef  7, 0,95,0 ,16384,435,256,0,0 

disKdef  8,7 

disffdef  a, 7 

disKdef  10,7 

disKdef  11,7 


APPENDIX  G 


PROGRAM  LISTING  OP  CPMMAST . LI3 


Tne  following  CPPMAST.LIB  file  is  created  by  tne  GENDEF 


utility  wnen  tne  CPMMAST.DEF  is  used  as  tne  source  file. 


* 

DISKS  12 

IpDase 

equ 

dpe0 

dw 

xite,00een 

dw 

utfvvti  ,yitsvun 

dw 

di  rbuf  ,dp&0 

dw 

csv0  ,aiv0 

dpel 

dw 

xi  tl  ,0000n 

dw 

0000*  ,0000n 

dw 

di rbuf ,dpbl 

dw 

csvi  ,alvl 

dpe2 

dw 

Xlt2,0000n 

dw 

,0000n 

dw 

d  i  r  ou  r ,  d  p  bd 

dw 

c  sv2 ,  a  lv2 

dpe3 

dw 

xi  t3 , Z00Bn 

dw 

eeeen  ,00fc*en 

dw 

dirouf  ,dpo3 

dw 

csv3  ,alv3 

d  pe4 

dw 

XI  t4 , 0000.0 

lw 

e^ean.eoeen 

dw 

di rbuf ,d  pb4 

dw 

csv4 , alv4 

dpeb 

dw 

xi  tb,0000n 

dw 

0B00n  ,0B0Bn 

dw 

di rbuf ,d  pb5 

dw 

cs vb  ,aivb 

dpeb 

dw 

xi  t6 ,0000n 

lw 

0000n  ,0000 n 

dw 

dircuf  ,dpb6 

d  w 

csvb.alvb 

dpe7 

dw 

xlt7,0000n 

d  w 

?000n  ,0000n 

dw 

di rbuf ,d  pb7 

dw 

csv?,alv7 

d  ped 

dw 

xitB  ,0000n 

dw 

0000Q ,0000n 

dw 

di rfcu  f ,dp  b8 

Base  of  DisK  Parameter  Eiccks 

Translate  Tacie 

Scratcn  Area 

Dir  Buff,  Parrr  Bleat 

CnecK,  Alloc  vectors 

Translate  Table 

Scratcn  Area 

Dir  Buff,  Perm  BIock 

Cnecit,  Alloc  Vectors 

Translate  Tacie 

Scratcn  Area 

Dir  Buff,  Parrr  BIock: 

C.neat,  Alloc  Vectors 
Translate  Table 
Scratcn  Area 
Dir  Buff,  Farm  EiocK 
CnecK,  Alloc  Vectors 
Translate  Table 
Scratcn  Area 
Dir  Buff,  Parn  BIock 
Cnees,  Alloc  Vectors 
Translate  Table 
Scratcn  Area 
Dir  Buff,  Farm  ElocK 
Cnees,  Alloc  Vectors 
Translate  Table 
Scratcn  Area 
Dir  Buff,  Farm  BIock 
CnecK,  Alloc  Vectors 
Translate  Table 
Scratcn  Area 
Dir  Buff,  Parm  BlccK 
Cnees,  Alice  Vectors 
Translate  Table 
Scratcn  Area 
Dir  Buff,  Farm  biock 


rl»— ' 

0 


dw 

cs vS ,  alv8 

{Cnees,  Alio?  Vectors 

F'-‘ 

ipe9 

dw 

xlt9 ,0000n 

{Translate  Table 

L 

dw 

0»000h  ,0000h 

{Soratcn  Area 

iw 

dl  rbuf  ,dpb9 

{Dir  Buff,  Farm  Blocs 

> 

dw 

cs v9 ,alv9 

{Cnees,  Alloc  Vectors 

*• 

dpel3 

i  w 

xitie.eeeeft 

translate  Table 

'j-  ■* 

dw 

0000n  ,000011 

{Scratch  Area 

dw 

di  rbuf  ,dpbl0 

{Dir  Buff,  Farm  Eiocs 

/v 

dw 

cs  vl0 ,  al  vl0 

{Checs,  Alloc  Vectors 

s 

dpell 

dw 

xltll , 0000b 

{Translate  Table 

*  >< 

dw 

0000b  ,0000n 

{Scratch  Area 

,* 

dw 

di rbuf ,dpbl 1 

{Dir  Buff,  Farm  Blocs 

**  ’ 

dw 

csvll  ,a lvll 

{Cnees,  Alloc  Vectors 

• 

1 

DISKCEF  0,1,26, 

0,1024,71 ,32.0,2 

dpb0 

equ 

offset  S 

{Diss  Farameter  Blocs 

■ 

dw 

26 

{Sectors  Per  Tracs 

it) 

3 

; Blocs  snift 

dt> 

7 

{Blocs  MasK 

db 

0 

{Extnt  Mass 

* 

d  w 

70 

{ disk  Size  -  1 

• 

dw 

31 

{Directory  Max 

FS 

d  t> 

128 

{ Alloc0 

•v- 

db 

0 

; Aiioci 

dw 

0 

{Cnees  Size 

.‘A 

iw 

2 

» Off se t 

xite 

equ 

offset  $ 

{Translate  Table 

VI 

db 

1,2, 3, 4 

:OI 

d  b 

5,6,7  ,8 

db 

9,10,11,12 

db 

13,14,15,16 

db 

17,18,19,20 

db 

21 ,22  ,23 ,24 

M 

db 

25,26 

a  is0 

eq  u 

9 

{Allocation  Vector  Size 

•  • 

CSS0 

equ 

0 

{Cnees  Vector  Size 

»• 

• 

* 

DISKDEF  1,1,26, 

6,1024,243,64,64,2 

dpbi 

eu  u 

offset  S 

{Diss  Parameter  Blocs 

dw 

25 

{Sectors  Per  Tracs 

db 

3 

{Blocs  Shift 

db 

7 

{3locs  Mass 

i;‘ 

db 

0 

{Extnt  Mass 

dw 

242 

?Diss  Size  -  1 

dw 

63 

{Directory  Max 

K; 

db 

192 

{ Alloc0 

+• 

db 

0 

{Allocl 

■ 

dw 

15 

{Cnees  Size 

dw 

2 

{Offset 

v  • 

xltl 

equ 

offset  $ 

{Translate  Table 

"/ 

db 

1  ,7,13,19 

r'.- 

d  b 

26,5,11,17 

[•  * 

db 

23,3,9,15 
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db 

109,110,111.112 

db 

113,114 ,115 ,116 

db 

117,118,119,120 

db 

121,122,123,124 

db 

125,126,127,128 

db 

129,130,131 ,132 

db 

133,134,135,136 

db 

137,138,139,140 

db 

141,142,143,144 

db 

145, 146,147,146 

d  b 

149,150,151,152 

db 

153,154,155,156 

a  1  s3 

equ 

35 

.Allocation  Vector  Size 

CSS3 

equ 

0 

jCnec*  Vector  Sice 

J 

DISXDEF  4,3 

dpb4 

equ 

dpb3 

J Equivalent  Parameters 

als4 

equ 

als3 

JSame  Allocation  Vector  Sice 

CSS4 

eq  u 

CSS3 

JSame  Cnecftsum  Vector  Size 

Xlt4 

equ 

xl  t3 

JSame  Translate  Table 

> 

DISrCDBF  5,3 

dpb5 

eq  u 

dpb3 

J Equivalent  Parameters 

a  is  5 

ea  u 

ais3 

.’Same  Allocation  Vector  Sice 

css5 

equ 

css3 

JSame  Checksum  Vector  Size 

xlt5 

ea  u 

xlt3 

JSame  Translate  Table 

• 

1 

DISKDEF  6,3 

dpb6 

equ 

dpb3 

J Equivalent  Parameters 

a  ls6 

equ 

al  s3 

JSame  Allocation  Vector  Size 

CSS6 

equ 

CS  S3 

JSame  Cnecicsum  Vector  Size 

xlt6 

equ 

xlt3 

JSame  Translate  Table 

• 

» 

DISKDEF  7,0,95,0 

16384  ,435  ,256  ,0 ,0 

dpb'7 

equ 

offset  $ 

JDisK  Parameter  BIocjc 

dw 

96 

JSectors  Per  Trace 

db 

7 

J Blocs  Snift 

db 

127 

JBloce  Masx 

db 

7 

jSxtnt  vasx 

d  w 

434 

JDise  Size  -  l 

dw 

255 

J  Directory  max 

db 

128 

;  a lio  c0 

db 

0 

J  AllO Cl 

d  w 

0 

JCnece  Size 

dw 

0 

J Offset 

xlt? 

equ 

offset  s 

JTranslate  Table 

db 

0,1, 2, 3 

db 

4,5,6  ,7 

db 

8,9,10,11 

db 

12,13,14,15 

d  d 

16,17,18,19 

db 

20,21  ,22,23 

db 

24,25,26,27 

d  b 

28  ,29  ,30  ,31 

d  b 

32  ,33,34 ,35 

db 

3b ,3? ,38 ,39 

a.  b 

40  ,41  ,42,43 

lb 

44,45,46,4? 

db 

48,49,50,51 

lb 

52,53,54,55 

db 

5b ,5? ,58 , 59 

db 

60,61,62,63 

db 

64 ,65 ,56,6? 

db 

68,69,70,71 

db 

72,73,74,75 

db 

76  ,77  ,78,79 

db 

80 ,81 ,82,83 

ib 

84,86,86,87 

db 

88,89,90,91 

•ib 

92  ,93,94,95 

als7 

eo  u 

55 

css? 

equ 

0 

• 

1 

DISKDEF  8,7 

dpbB 

equ 

dp  b7 

a  ls8 

eq  u 

ais? 

esse 

equ 

css? 

xite 

equ 

Tit? 

• 

f 

DISKDEF  9,7 

ipoy 

equ 

dt>b7 

ais9 

eq  u 

ais? 

CSS9 

equ 

css? 

Xlt9 

equ 

xlt? 

» 

DISKDEF  10,7 

lpbl0 

equ 

dpb7 

aisl0 

equ 

ais7 

CSS10 

ea  u 

css7 

xitia 

eq  u 

xl  t7 

{ 

DISKDEF  11,7 

lobll 

eq  u 

apb7 

alsll 

equ 

ais7 

cssll 

equ 

css? 

Xltll 

ea  u 

xl  t? 

J 

• 

ENDEF 

t 

J 

Uninitialized  Scratc 

i 

bs£>da  t 

equ 

offset  S 

dir  Duf 

rs 

128 

a  l  v0 

rs 

a  l  s0 

CS  V0 

rs 

CS  S0 

al  vl 

rs 

aisl 

csvl 

rs 

cssl 

al  v2 

rs 

als2 

~s  v2 

rs 

CSS2 

a  i  v3 

r  s 

a  l  s3 

csv3 

rs 

CSS3 

{Allocation  Vector  Size 
{Cnees  Vector  Size 

»  Eauivalent  Parameters 
{Same  Allocation  Vectr  Size 
{Same  Cnec'ssum  Vector  Size 
{Same  Translate  Taoie 

{Equivalent  Parameters 
{Same  Allocation  Vectr  Size 
{Same  Cn^cssum  Vector  Size 
{Same  Translate  Table 

{Equivalent  Parameters 
{Same  Allocation  Vector  Siz 
{Same  Cnecssum.  Vector  Size 
{Same  Translate  Taoie 

{Equivalent  Parameters 
{Same  Allocation  Vectr  Size 
{Same  Cnecisum  Vector  Size 
{Same  Translate  Table 


^emo ry  Follows: 

{Start  of  Scratcn  Area 
{Directory  Buffer 
{Alloc  Vector 
{Cnees  Vector 
{Alloc  Vector 
{ Cnees  Vector 
{Alloc  Vector 
{Cnees  Vector 
{Alloc  Vector 
{Cnees  Vector 


appendix  e 


PROGRAM  LISTING  OF  RXFL0F.AB6 


Prog  Name  : 

Da  te  : 
Modified  Cy: 
For  : 
Advisor  : 
Purpose  : 


RXFLOP . AB6  (REMEX  FLOPPY  DISK 

ACCESS  CODE ' 

5  April  1983 
MarK  L.  Perry 

Tnesis  (AEGIS  Modeiing  Groups 
Professor  Cotton 

TP is  code  is  an  include  file  w/in  CPMEIOS.ABd 
It  contains  tne  code  necessary  to  access  tne 
Remex  floppy  diss  drives  and  gererate  a 
loader  for  tnem. 

Tnis  configuration  is  set  for  CP/M  logical 
drives  1  (A:  5.  B:  )  and  2  ( C :  ) .  To  alter 
cnange  code  in  READ  and  VFITE  routines. 


Equates 


: - Disic  Controller  command 


dS_rdy._masK 

equ 

esH 

dic_rd_cmd  1 

eq  u 

mifi 

dfc_rd~cmd2 

equ 

1012H 

d(c_wr_cmdl 

equ 

1021H 

dx_wr_cmd2 

eq  u 

14322K 

tries 

equ 

143 

drive2 

equ 

2 

-  REMEX 

Interface 

cmd_reg 

equ  745H 

status  reg 

equ  ?1H 

p  aidr_lo 

equ  72 H 

p_addr_ni 

equ  73H 

Dytes  and  mas 'is  (REMEX'. 

f  read  comma  id 
> write  command 

JCFM  logical  isk  p  for 
>  drive  2 

Controller  Forts  - 

Jctrler's  case  in  CP/M-88 


*  *c  If.  sjt  a*  *  3H  Xftf  Xf  Xf  w  W  jjc  W  *  W  W  *  W  *  s*  JStJSt  V  V  W  W  *  *  J*  V  V  >*  W  V  W  V  V  V  *X  M  ^  M 

CPM  DE7ICE  SPECIFIC  CODE 
entered  from  tne  main  CPMSIOS's  Jump  vectors 

JSC  5JC  J*  *5  J*  JJC  $C  J?SJC  3*  J*  JJC  3?  M  V  *C  3*  3*  3?  3*  3?  3j*3*  JJC  >JC  3?  3*  3*3*  J*  5*  I*  3*  J*  J*  ^  3?  3*  3*3*  3*3*  3*  3*  3*  ^  V  *  3*  V  *  3*  J*  3?  3? 


1?6 


cseg  $ 


rx?lop_ini t: 

ret 

• 

i 

i 

t 

1 

i 

i 

i 

i 

—  i 

»  i 

O  1 

special 

action 

reauired 

rxf  lop_no:rie: 

re  t 

;  no 

special 

action 

reauired 

*  1  .  . 

rxflop_seldsx: 

ret 

Jno 

special 

action 

required 

rxf  iop_set  trie : 

re  t 

;  no 

special 

action 

rea  ui red 

» 

rxfiop_set  sec : 

re  t 

;  no 

special 

action 

requi red 

rxflop_read: 

713  V 

IF 

rwdi r  ,2 

ioader_o I  os 

9 


177 


- - 

SN  DIF 

Jr.ot  loaaer_Dics 

call 

Duild  packet 

i 

can 

send_pac£et 

Jperi'orm  tne  read 

call 

xf r_ouf f er 

Jxfr  CP*!  Duffer  into  memory 

IF 

not  ioader_bios 

‘ 

not  loader_bios 

return  success/failure  cole 


rxf iop_wri te 
IF 


not  loader  Dios 


wrtl : 


TOV 

call 

CTp 

jz 

mo  v 
jmps 


rwdi r ,  1 
request 
unit , drives 
wrtl 

bx ,dx_wr_cmdi 
wrtS 


^request  ticKet  numcer 
JCP/M  logical  lisi  No.  for 
JRemex  rioppy  drive  2  (C:^ 
Jsetup  write  to  drive  l  (3:) 


ox  ,d'i_wr_cmd2  Jset  up  to  write  drive  2 


1?« 


call 

buiid_pactet 

call 

xf r_burfer 

call 

senl_pactet 

can 

release 

Jfree  resource 

mov 

al  .result 

jreturn  success /fai lure  code 

EN  DIF 

;not  loader  bios 

re  t 


V  WW  ifitfww&V  jfVWWW  WW  &V&  W  VVWWVW  WVWWWVWV 

REVEX  FLOPPY  DISK  SUBROUTINES 

V  W*?*!' wv&v  ¥¥,-:?.',::,<V¥VWWVVV  VVVWWW  WV  W  W*PW  WWV  VV9V  W 


buiil_pactet : 


pusn 

es 

;save  es  register 

mov 

ax , cmems  ee 

Jset  up  es  to  address  comrro 

mov 

es  ,ax 

!  memo  rv 

mov 

p_modif iers , bx 

Jpnter  read  ccle  in  pactet 

TO  V 

p  status, 0 

Jclear  pactet  status  word 

mov 

ax  .0000H 

Jciear  register 

mov 

al , tract 

,'sret  tract  - 

mo  v 

o  tract  no, ax 

Jenter  tract  =  in  pactet 

mov 

ax ,0000E 

?set  nead  no.  to  0 

all 

al .sector 

fset  sector  no. 

mov 

p_neaa_sect , a  x 

;put  nead  1  sec  n  in  pactet 

mov 

p_mem_addr ,0100n 

Jaddress  of  CFV  Duffer 

mov 

p_ms  o , 00fc'en 

?CPV  buffer  ms b 

me  v 
pop 
re  t 

p_wora_ccunt ,64 
es 

;#  of  16  bit  words 

send_pacte  t: 

pusn 

T10  v 
mo  v 
mo  v 
sendl : 
in 
and 
cmp 
Jne 


es 

ax  .cmemseg 
es  ,  ax 

dt_cnt, tries  Jioad  count  ror  retries 
ai , s  ta  tus_reg 

ai,  dt_rdy_mast  Jcnect  interface  ready 
al  ,08H~  -  ; is  it  ready? 

sendl  ;  i  r  not  ready  repeat 

ai  .  IcE 


[•] 


ou  t 

no  V 

out 
no  v 
out 

cnecit_resul  t 
no  v 
cnp 
je 
cnp 
jne 
jnps 
retry: 
mo  v 


cmd_reg , a i 
ax  ,0024n 
p_adar_2o ,al 
ai  ,an 

p_addr_ni ,al 


ax,p  status 
ax  ,200lfi 
success  read 
ax  ,0000H 
re  try 

cnecx  result 


dK_err_code ,al 
nov  p_status,0 
dec  dSc_cnt 

jnz  sendl 

nov  result, ?FFE 

jnps  dic_execute_rpt 
sue  res  s_read : 

nov  result,00H 

dfc_ex°  cu  te_re  t : 
pop  “  es 
ret 


iloaa  extended  address 
Jpaciet  offset 
; transfer  low  cyte  out 


Jtransfer  ni  byte  cut 


Jioad  status  word 
Jcnecic  for  success 


Jcnecic  for  failure 


; save  error  code 
, ’clear  status  word 
;  reduce  retry  count 
»if  <>  0  try  a?ain 
Jreturn  failure  cone 


freturn  success  cod 


xf r_ buffer : 


PUSH 

es  !  push  ds 

nov 

es  ,dma_see 

no  v 

di  ,dna_adr 

mov 

ax  ,cnemsee 

no  v 

ds ,  ax 

nov 

si ,0100n 

nov 

cx  ,b4 

cnp 

rwdi r  ,0 

Jz 

xf  r 

x^ng 

si  , di 

Jset  up  for  write  operation 

no  v 

ax, is 

no  v 

es  ,ax 

no  v 

ds  ,ima_seg 

cld 

rep 

novs  ax, ax 

Jnove  as  16-rit  words 

pop 
re  t 

ds  !  pop  es 

J  V  SfV  WWW  W  WV  WV  W  W  Vi,<¥W  W  V  W  Sfiifi  WV  WWW  w 

;  Data  Segment  Area 


> 


Remex  Interface  Packet 


eseg 

org  //fc:Z4n  » offset  of  pac&et 


p_modif iers 

rw 

1 

p_status 

rw 

1 

p_tracK_no 

rw 

1 

p“nead_sect 

rw 

1 

p_mem_addr 

rw 

1 

p_ms  b 

rw 

1 

p~word_count 

rw 

1 

;vi  SO 


cseg 

$ 

ds_err_code 

dD 

0CK 

dt_cnt 

dc 

tefi 

result 

r  b 

l 

rwdi  r 

r  t 

l 

♦function  6.  logical  unit 
Returned,  status 
♦selected  tract  numoer 
♦  selected  nead/sector  r.umDer 
; Duffer  address 

^extended  Bits  or  ouffer  address 
Jslze  of  data  ciock 

7ariaDles - 


^returned  Remex  error  code 


? 45  =  read  ;  l  =  write 


Prog  Name 
Date 

Written  by 
For 

Advisor 

Purpose 


units 


intbl 


rd  tbl 
wrt  ol 
nmt  bi 
isittl 

trzt  ol 
sectoi 
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PROGRAM  LISTING  OF  LL'RMAST  .CFG 


ILDRMAST.CFG 
:5  April  1383 
:Mark  L.  Perry 

:Tnesis  (AEGIS  Modeling  Group' 

:?rof es s or  Cotton 

:T.nis  rode  is  an  include  file  vitftir. 
LDCPM.A86.  It  contains  tne  device 
taoles  for  access  to  initiaiizaticn 
real,  and  write  routines  and  was 
developed  to  accompany  tne  boot  rom 


DEFINE 

db  1  Jonly 


INITIALIZATION  TADLE 

dw  offset  rxfiop_init  {initialize  P.emex 
d «  £ 


ADDITIONAL  OFFSETS 

dw  offset  rxflop_read 
dw  offset  rxflop”write 
dw  offset  rxf lop_nome 
dw  offset  rxf  iop_se  Ids  ic 
dw  offset  rxf lop~settrn 
dw  offset  rxf iop^setsec 


APPENDIX  J 


PROGRAM  LISTING  01  LDRMAST . DEF 

This  is  the  disK  definition  statement  used  tor  the 
loader  routine.  Tne  system  is  configured  in  tse  loading 
phase  as  a  single  disK  system  to  minimize  tne  space 
requiremen  ts . 

disss  1 

di sfcdef  0,1,25,6,1024,243,64,64,2 
endef 
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APPENDIX  X 


dpbase 

dpe0 


dpb0 


xit2 


als0 
CS  S0 
J 
? 

? 

5 

begdat 
i  1  r  b  u  f 
alv0 
CS  V0 
enddat 
datsiz 


PROGRAM  LISTING  OF  LERMAST .LIP 


equ 

DISKS  1 
$ 

,*£ase  of  Dis£  Farareter 

d  w 

xi t2 ,  02?2n 

^Translate  Table 

dw 

22220 ,2222.0 

;  Sc  rated  Area 

dw 

di r  ouf  ,d  po2 

»Dlr  buff,  Peru  iiocic 

dw 

c  s  v  0  ,  a  1  v  3 

; Cneci,  Alloc  Vectors 

DISKDEF  3,1,26 

,6, ie24 ,243,64 .64,2 

equ 

offset  s 

jDiss  Parameter  SIock 

dw 

2  b 

JSectcrs  Per  Tracs 

db 

u 

Aloes  Snift 

db 

7 

;B1ock  ^as< 

db 

e 

jSxtnt  Mass 

dw 

242 

IDIsk  Size  -  1 

dw 

w  U 

directory  Max 

db 

192 

,*Alloc0 

db 

2 

JAllocl 

dw 

16 

;Cnec£  size 

dw 

2 

;0ffset 

eau 

offset  $ 

,'Transiate  Table 

db 

1,7,13,19 

ID 

25,5,11,17 

db 

23,3,9,15 

db 

21  ,2,3,14 

db 

22,26,6,12 

d  b 

18,24,4,12 

db 

15,22 

equ 

31 

Allocation  Vector  Size 

equ 

16 

JCnecsc  Vector  Size 

endep 

Uninitialized  Scratcn 

Memory  Follows: 

equ 

offset  $ 

fStart  of  Scratcn  Area 

rs 

128 

JDirectory  Buffer 

rs 

also 

JAlioc  Vector 

rs 

esse 

JCaecS  Vector 

euu 

offset  $ 

;End  of  Scratcn  Area 

ea  u 

offset  5-oe^dat  >Size  of  Scratcn  Area 

db 

0 

» Maries  End  of  Module 
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PROGRAM  LISTING  OF  RMXR0M.A86 


v  w  v  v  w  V  v  w  v  v  v  >r  v  ss  agt  v  v  *«  v  w  w  =?  v  =?  *  * »* v  w  *  w  w  j?  w  w  *  *  *  v  v  w  v*f  **  v  *  v  v 
v  * 

v  Ttiis  Customized  ROM  loader  for  CP/M-66  nas  * 

55  tne  following  hardware  configuration:  v 

*  Processor:  iSEC  86/12a  * 

*  List  Controller:  Remex  Data  tfarenouse  * 

*  or  tne  iSPC  201  ,202  * 

*  Memory  model:  3080  5:5 

V  * 

*  Programmer:  M.L.  Perry  * 


ns  w  V  W  V  V  V  **  *  *  V  *  W  M  >?  W  W  9  *  *  *W *  W  *  W  =*  W  *  *  W  *  *  >?  sp  *  s*  V  >?  W  W  W  >?  V  * 


*?  W  VtfWW  W  V  W  W  W  W 

*  Tms  is  tne  POOT  ROM  wnicn  is  resident  * 
in  tne  957  monitor.  To  execute  tne  Doot  v 

*  tne  monitor  must  be  brought  on-line  and  * 

*  tnen  control  passed  by  "gffd4:0"  or  tv  * 

*  "gf f d4: 0004".  Tne  first  monitor  command  * 

*  will  toot  to  an  iSPC  202  disK  and  tne  - 

*  second  command  will  boot  tc  tne  Remex .  v 

*  First,  tne  ROM  moves  a  copy  of  its  data  * 

*  to  RAM  at  location  00000 H,  tnen  it  * 

*  initializes  tne  segment  registers  and  the* 

*  stacic  pointer.  Tne  ic259  peripneral  int-  * 

*  rupt  controller  is  setuu  for  interrupts  * 

*  at  10H  to  17H  (vectors  at  fc0040H-fe'00nFH )  * 

*  and  ed re- triggered  auto-EOI  (end  of  in-  * 

*  terrupt )  mode  witn  all  interrupt  levels  * 

*  masxed-off.  Nett,  tne  appropriate  device* 

*  controller  is  Initialized,  and  traci  0  5:5 

v  sector  l  is  read  to  determine  tne  target  * 

*  paragrapn  address  for  LOADER.  Finally,  * 

*  tne  LOADER  on  tracff  0  sectors  2-26  and  * 

*  tracic  l  sectors  1-25  is  read  into  tne  * 

*  tareet  address.  Control  tnen  transfers  * 

*  to  tne  LOADER  program  for  execution.  ROM  * 
v  0  contains  the  even  memory  locations,  ana* 

*  ROM  1  contains  tne  odd  addresses.  POOT  * 

*  R0V  uses  RAM  between  00000E  and  000FFH 

*  (absolute)  for  a  scratcn  area.  * 
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EQUATES 


•P  W  W  Wtf  W  VVWvWWv  V  w  w 


Miscellaneous  equates 


cr 

disK_type 

if 

remex_type 
romseg 
sector_size 
start  trKl 


equ  2dK  jAscii  carriage  return 
equ  21H  >type  for  iSiC  222  dis.< 
equ  2aH  ,'Ascii  line  feed 

equ  22H  Jtype  for  RJ5M±IX  floppy 

equ  2ffd4n  ;case  address 
equ  128  ,‘CP/M  sector  size 
eou  2cSn 


-  18251  USART  console  ports 


C0NP_da  ta 
CONP  status 


equ  218K  ;  18251  data  pert 

equ  2daH  >18251  status  port 


—  Disi  Controller  command  cytes  and  masns  (iS£C  222)  - 

i 

l 

DK_cnAint_Tias(r  equ  224H  Jmastt  to  cnecK  for  DK  interupt 

DX_nome_cml  equ  223H  Jmove  to  dome  position  command 

I>K_read_cmd  equ  22 4H  jread  command 


INTEL  iSBC  222  DISK  Controller  Ports 


DXP_oase  equ  2?8H 

DKP”resui  t_ty pe  equ  DAP_fcase'i-i 
DXP_resui t_cyte  equ  DKP_Dase+3 


EKP_reset 
DKP_sta  tus 
D£P_iopb_low 
DKP~iop  o”nign 


equ  DKP_base-'-7 
equ  DKP^case 
equ  DKP_case+l 
equ  D K?”Dase*2 


ctrler's  Case  in  CP/M-Sb 

operation  result  type 

operation  result  Dyte 

disic  reset 

dls2  status 

low  addr  oyte  of  icpb 

nign.  aedr  byte  of  iopo 


■REMEX  floppy  liSK  drive  equates- 


18b 


dic_rci_cmdl  equ  10lin 
lK_rdy_masit  equ  08n 

cntri_err_mast  equ  04n 

d_err”masic  equ  08n 

crc_err_mas£  equ  10n 

cmemseg  equ  0e000n 

tries  equ  10 


» read  for  drive  1 

Jready  mass  for  control 
Jcontrolier  error 
>dis2  error 
Jcrc  error 
;  common  memory 
•  number  of  retries 


9 

•  \ 

-  REMEX 

Controller 

Ports  - 

9  | 

cmi_reg 

equ 

70n 

Jcontroller  base 

status  res* 

ea  u 

71  n 

Jstatus  register 

p  addr  lo 

equ 

72n 

Jiower  address 

p_addr_ni 

equ 

*3n 

Jupper  address 

» - X 

*  I 

PIC  59pl 
PIC  59p2 


INTEL  18259  ProgrammaDle  Interrupt  Controller 


0C0n  >  8259a  port  0 
0C2n  » 8259a  port  1 


j  wvwipvtfwww  ENTP.f  POINT  AND  MAIN  CODE  s***************** 

9 

uses  romsee 

» 

;Enter  nere  witn  mffa4:0  command  for  iSSC  202  Doot 


mov  DL, diSK_type 
jmps  Start_boot 


•  set  boot  type  to  i  i  s  k 

•  go  start  coae 


Enter  nere  *  1  t.o  gffd4:0004  commanc  for  REMEX  toot 
t_l: 

mov  DL, remex_type  »set  boot  type  to  remex 

Start  boot: 


move  our  data  area  into  RAM  at  0000:0200 

mov  AX.CS  Jpoint  DS  to  CS  for  source 

mov  DS , AX 

mov  Sl.iatabegin  »start  of  data 

mov  DI, offset  ram_start  Joffset  of  destination 
mov  AX , 0  » set  dest  segment  (ES) 

mov  ES , AX  ; to  0000 

mov  CX,iata_ien?tn  Jnow  mucn  to  move  (bytes) 


rep  movs  AL,AL  nove  from  eprom, 

;  Dy te  at  a  time 

{set  segment  registers  and  initialize  tne  stacA 

mov  AX,  0  {set  DS  segment  to  0000, 

{now  in  RAM 

nov  DS , AX  {data  seement  no*  in  RAM 

•no v  SS , AX 

mov  SP, stacfc_off set  ,*init  stacA  segment/pointer 

old  ~  {clear  t tie  direction  fia<? 

i 

{Setup  tne  S259  Programmable  Interrupt  Controller 

9 

mo v  AL , 013H 

out  PIC_59pl,AL  {5259a  ICtf  1  8036  mode 

mov  AL,010H 

out  PI  C_59p2 ,  AL  !  8259a  IC'«  2  vector  P  40-51 
mov  AL.tflffi 

out  PI C_59 p2 • AL  i8259a  I CW  4  auto  EOI  master 
mov  AL,0ffH 

out  PIC_59p2,AL  J8259a  OCW  1  masA  all  levels  off 

9 

BRANCH  TO  SELECTED  DEVICE  POP.  POUT  ********** 

{ 

;  determine  if  booting1  to  iSBC  202  or  to  REMEX 

9 

cmp  DL,disA_type  ; i s  tnis  a  i202? 

jne  boot_remex  ?if  not,  boot  to  P.EMEX 

9 

iSBC  'itt'd  BOOT  CODE  ********************** 

9 

Boot_1202:  {return  on  fatal  errors 

9 

;Rest  and  initialize  tne  i.MDS  800  Diskette  Interface 

9 

in  AL, DKP_resul t_type  {clear  tne  controller 

in  AL,DKP_result_byte 

out  D£?_rese t , AL  ; AL  is  dummy 

{for  tnis  command 

9 

;  nome  tne  iSBC  202 

9 

mov  DX_lc_com , DK_nome_cmd  {load  io  command 

call  D&_Execute_Cmd  {nome  tne  disA 

mov  DK_i'o_com  ,DK_read_cmd  Jail  10  now  reads  only 

9 

;  get  tracs  0,  sector  l,  tne  GENCMD  neader  record 

9 

mov  BX, offset  genneader  {offset  for  1st  sector  DMA 
mov  D&_dma_addr ,iX  {store  ama  address  in  iopo 
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{  transfer  1  sector 
{start  at  sector  ml 
{read  trade  2,  sector  1 


to v  DK_secs_t ran ,  1 
to v  D£_sec tor ,1 
call  DX_2xecute_Cmd 

get  trt  2,  sect  2-2b,  and  place  in  RAM 


rov  ES , a bs _ioca ti on 
tov  AX ,£S 
tov  CL, 04 
sai  AX, CL 

tov  D£_drra_addr ,  AX 
tov  DK_secs_t ran  ,2b 
tov  DK_sector ,2 
call  EK_£xecute_Cmd 


? segment  ioc  for  LOADER 
; to  AX  to  manipulate 
{must  xlat  to  lb-bit  addr 
{snift  segment 
{store  dma  address  in  iopb 
{transfer  2b  sectors 
{start  at  sector  *2 
{read  trt  2,  sects  2-2b 


get  tnc  1,  sect  l-2b,  put  at  next  place  in  RAM 


to  v  AX , ES 

add  AX , s ta rt_t rtl 

tov  CL, 24 

sal  AX, Cl 

tov  DK._dma_add r , AX 
nov  DK_sens_tran ,25 
tov  DK_sector,l 
tov  DK_tract,l 
call  DK_Execute_Cmd 
j t p  Jurp_To_Loader 


{compute  offset  for  tract  l 
{add  in  wnat  already  read 
{must  xlat  to  16-bit  aedr 
{snift  segment 
{store  dma  aadress  in  iopb 
{ t ransfer  2b  sectors 
{start  at  sector  ml 
{ s  tart  at  tract  cl 
{read  trt  1,  sects  l-2b 
{go  pass  control  to  loader 


w*w*7** ***** ***  REMEX  BOOT  CODE  vw*^****3************ 


boo  t_remex : 

tov  AX.cremseg 
tov  ES,AX 


{mate  common  memory 
{ addressable 


pet  tract  2,  sector  1,  tne  GEN  CM  D  deader 


hoot_again: 

tov  £X , dt_rd_cmdl 
tov  an,00n 
mov  al,21d 
pusn  ax 

call  build_pactet 

call  send_pactet 

mov  di, offset  genneader 

tov  ax, Is 

call  xfer  buffer 


{return  nere  or.  errors 

{set  up  to  read  drive  l 

{tract  0 

{sector  1 

{save  it 

{do  it 

{set  up  destination 
{set  up  source 


get  load  location  from  GENCMD  neaaer 


tov  BX,aos_location 


{abs  is  location  in  RAM 


eez 


ge  t_l 


fin  1 


nov  CL, 434 
sal  EX , CL 
nov  DI,BX 

pop  ax 
lnc  al 
cmp  ai,2S 
ja  flnJL 

pusn  ax 

"iov  EX , dK_rd_cmd 1 
nail  cuild_pacire  t 
call  send_pacicet 
mov  ax, 0000 n 
call  xfer_huffer 
Jnp  set 


Jconvert  to 
;BX  now  has 
Jnow  in  di 


lo  d  i  t 

load  address 


Jget  next  sector 
;ana  cherK  for  last 
Jon  this  tracK 


Jsave  ax 

Jprepare  for  read 
; read  next  sector 

Jahsolute  load 


in c  ah 
cmp  an,l 

ja  Jump_To_Loade r 
mov  al ,  1 
jmp  get_l 

•  PASS  CONTROL 

9 

Jump_To_Loader : 

'nov  ES  ,a  Ds_locat  ion 
mov  leap_segment ,ES 
isetup  far  Jump  vector 
nov  ieap_of f set ,0 


Jget  next  traciV 

Jjump  to  loaner 
Jreset  sector  nurmer 

TO  LOADER 


5  segment 
*  1  oad 


addr  of  LOADER 


*  offset  of  LOADER 


jmpf  dword  ptr  leap_offset 

ww  gMD  Qp  M.AIN  CODE 


rf  M  w  W  s?  V  w  W  V  9  5?  V  9  V 


•  BEOINNINO  OF  SUBROUTINES 


*  C ON I N  sud routine  * 


J  sjcJSt^spjjtJ.SsjtvV  igcjgcjpv^sv  WWWWWW 

Jcalled  from:  DK_Execute_Cmd . 

Conin:  returns  console  seyooara  character 

parm  in  -  none 

;w  par r  out  -  returns  character  in  AL 
in  AL.CON?  status  iget  status 


and  P.L  ,2  Jsee  if  ready-tit  1-is  set 

j z  Conin  »lf  not,  it  is  zero  and  not  ready 

in  AL,CONP_data  Jready,  so  read  character 
and  AL,07fH  Jremove  parity  tit 
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i*  CONOUT  suoroutine  ;<i 

J  WWW  W  *VW  *V  W  WSBS  V  »*»M*»*?»MM*??*  W*???5?»?¥?¥*¥**¥?? 

fcalled  from:  Print_Msg. 

Conout:  f**  write  cnaracter  to  console  KeyCoara. 

;**  parm  in  -  cnaracter  to  ce  output  in  CL 
parm  out  -  none 

in  AL , C0NP_sta tus  fget  consols  status 
and  AL ,  1  fsee  if  ready-Dit  54-is  set 

jz  CONOUT  f  if  zero,  not  reaay-Keep  cfiecKine 

mov  AL,CL  fload  input  parm  to  AL  for  out 

out  CON?_o a ta , AL  ; output  cnaracter  to  console 
re  t 


J  wa?  w  W9  9  XfiWWWWW  JPW  Jgero  =P=?=  **  =P  ???  W  W*  »>»¥  w  WV  «  WV 

f*  DK  SXBCOTS_CMD  suoroutine 

•  WWW  ***■>?  W*  W  W  W*  W  W  WS*  ^  WW  JP  JPV  >*!*:  V~,<  *  W 

fcalled  from:  in-line  from  2oot_i2'/2. 
Dic_Execute_Cma :  Executes  a  diss  read/write  command 

;**  parm  in  -  DMA  addr  in  EX. 
f  **  parm  out  -  none 

fsenl  iopD  to  iisx  controller  via  two  ports  (2  oytes) 
Send_iopb : 

In  AL,DXP_resuit_type  fclear  tne  controller 
in  AL ,DKP_result_Dyte  fclear  tne  controller 
mov  AX, offset  DX_iopo  feet  address  of  iopo 
out  E£P_io po_low , AL  , 'output  low  cyte  of  iopc  acdr 
mov  A L , AH  ~  ;  load  nign  cyte  to  AL  for  output 

out  EXP_iopD  nign.AL  font  nign  oyte  of  iopo  aidr 
fcnecsc  for  interrupt  from  disK  controller 
2isK_i  n  t : 

in  AL , DK?_status  fget  diSK  status 
and  AL,DK_cniint_maS£  finterrupt  set? 
jz  DisA_int  fif  not.  Keep  cnecKing 

fsee  if  interrupt  signifies  I/O  completion 

in  AL,L'iP_resuit_type  feet  reason  for  interrupt 
cmp  AL,28H  fwas  I/O  co  plete  ? 

Jz  CnecK_result  fit*  so,  eo  cnecx  tne  result  cyte 
jmps  Send_iopt  flf  not,  <?o  try  again 
fcnec.K  result  cyte  for  errors 
C dec K_resul t : 

ir.  AL,DL?_result_Cyte  fget  result  cyte 
and  AL,fc)B0E  fis  I/O  complete? 

jnz  Fatal  err  fit'  not,  fatal  error 
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UNCLASSIFIED  F/G  9/2 


ana 

Jz 

Fa  ta l_e rr 
no  v 

Ftes t : 

rcr 
inc 
test 
jz  F 

,TOV 

.no  v 
add 
•no  v 
no  v 
♦print 
call 
call 

Jap 

Dtc_execut 
re  t 


AL,0feH  ♦ 

D£_execute_re 

• 

cl,  0  ; 

al,  1  ; 

cl  ; 

al,?i  ; 

test  ; 

AL , CL  ; 

ah  ,  0  ; 

ax, ax  ; 

BX,AX  ; 

£X,errtDl  [£XJ 
appropriate  e 

Print_Mss  ; 

Conin"  ; 

3oot_i202  ; 

e  ret : 


;cnecx  tor  error  in  any  cit 
(t  *no  errors,  go  return 

;clear  CL  for  counter 

icnecK  eacn  bit  of  result 
count  eacn  Dit 
;test  eacn  Dit 
zero,  go  cnees  next 
not  zero,  error,  inc  count 
clear  nisn 

double  for  idt  to  word  tame 
Hoad  BX  as  index 
Jeet  addr  of  error  tr.se 
irror  message 
write  mss  to  console 
iwait  for  Key  striKe 
;tnen  start  all  over 


*  P.EmEX  send_pactet  subroutine  * 

VW  WWW  W  WV  VKfV  W  VWWW  VW  W  W  W  WV  WWW*!-  w  vw  w  vw 


send_pacKet : 

mov  ES :dx_cnt , tries  Jload 

send_l: 

in  AL , sta tus_reg 
and  Al ,dK_rdy_masK  Jcnec 

cmp  AL,08n  Jread 

jne  send_l  Jif  n 

mov  AL , lcfi  Jioad 

out  cmd_reg,AL 

nov  AX, 0004a  JpacK 

out  p_addr_lo,AL  Jtran 

nov  al,an 

out  p_addr_ni,al  Jtran 

cK_result: 

mov  AX,p_status  Jioad 

cm p  AX, 0001n  Jcnec 

je  success_read 
cnp  AX,0000n  Jcnec 

jne  retry 

jmps  cK_result  Jnot  finisned 


Jload  count  for  retries 


jcnecK  interface  ready 
♦ ready? 

♦if  not,  repeat 
Jload  extended  address 

JpacKet  offset 
♦transfer  lo  oyte 

♦transfer  ni  byte 

♦load  status 
JcnecK  for  success 

Jcnect  for  failure 


retry 


mov  p_sta tus ,0Z00n 

dec  £S:lK_cnt 

Jnz  send_T 

mov  BX, offset  errtbi 


♦clear  status  code 
Jre  uce  retry  count 


success 

» 


add  EX, 14 
mov  BX, ftXJ 
call  Print_Msg 
call  Conin 
jmp  boot_again 
read : 


Jadjust  for  table  er.iry 


iwait  on  user  Key  striKe 
; start  over 


ret 


9 


yfffVVVff  99  9  99  9999999  9  9  9  99  9  «WJfC*«W))i  99  9999999999999999  9  9  «■!> 


9  99  99  9  9  9  9  999  9  9  99999999  99  999  99  99 

*  REMEX  cuila_pacKet  subroutine  * 


9999999999999999999999999999999999999999999999999999999999 


CKet 

• 

• 

mov 

ES 

mo  v 

ES 

mo  v 

dx 

mov 

dl 

mo  v 

ES 

mov 

dx 

mov 

dl 

mo  v 

ES 

mov 

ES 

mev 

SS 

mov 

ES 

P 

ni 

ES:p  modifiers , dx 
ES  :p_status  ,£ 
dx,8000n 
dl  ,an 

ES :p_tra^K_no ,ix 

dx,fc50een 

dl ,  al 

ES:p_head_sect ,ix 
E  S :  p  _ m  e  m  _a  d  d  r , «?  1  vtf  0  n 
SS :  p”,Tso7220en 
ES :p_word_count ,64 


,*set  read  cede 
jciear  status  wori 
Jclear  ax 
Jset  tract  numDer 
Jenter  in  pacKet 
; clear  ax 

>set  sector  and  dead 
jenter  in  pacKet 
jaddress  of  buffer 
; ou  f er  ms  b 
! number  of  16  tit  vds 


9999999999999999999999999999999999999999999999999999999999 

9999999999999999999999999999999999999999999999999999999999 

*  RSr^EX  xfer  Duffer  sucroutine  * 


9999999999999999999999999999999999999999999999999999999999 


> 

xf er_ouf far: 

mi 


pusn 

es!pusn  as 

Jsave  segment  registers 

mo  v 

es ,  ax 

;set  up  for  transfer 

mov 

ax , cmemseg 

mov 

d  s ,  ax 

mov 

si  .tfU’tfn 

; location  of  Duffer 

mov 

cx  ,64 

Jword  count 

cld 

Jciear  direction  flag 

rep 

movs  AX, AX 

pop 

is!  pop  es 

re  t 

5?f  W*  ************  aycagB  jgs  jgsjgsjgcagt  jgsagtagcagt 


f 

•  v  VV*V*V**VM*vtf  *******  V  VV  *********  vv*  **  **********  *  ****  *v*  ** 


PRINT  MS 5  subroutine 


J  V9W9  99  WVW  WW  VW  >*>!•****  WV  VVW  VV  W  VVV  VWv?  VVJ?V 


Print_Msg: 


mov  CL, LBX J 
test  CL, CL 
jz  Pmsg_ret 
pusn  BX~ 
call  Conout 
pep  BX 
i  nc  BX 

jmps  ?rint_Msg 
pTisg_ret: 

re  t 


•  called  from:  Dfc_Execute_Cmd. 

Prints  a  message  to  tne  console, 
parm  in  -  address  of  message  in 
parm  out  -  none 

XJ  Jget  next  cnar  from  message 

L  i* is  it  zero  -  end  of  message 

et  ; if  zero  return 

Jsave  address  of  message 
ut  ; print  it 

•restore  address  of  message 
Jnext  cnaracter  in  message 
t _M s g  .next  cnaracter  and  loop 


SNC  OF  SUBROUTINES 


•‘Image  of  data  to  be  moved  to  RAM 


dataoegln  equ  offset 

9 

;A  template  iSBC  202 

db 


lopb  (cnannei  command  -  7  bytes) 


•End  of  iopc 


080 E  »iopb  cnannei  word 

0  »io  command 

0  ;number  of  sectors  to 

0  jtracs  to  read 

0  jsector  to  read 

0000H  Jdma  aedr  for  iSBC  20*. 


xrer 


cerrt  01 

dw 

offset 

e  r0 

dw 

offset 

erl 

iw 

off se t 

er2 

dw 

offset 

er3 

dw 

offset 

er4 

dw 

of f se  t 

er5 

dw 

oi fset 

er6 

• 

dw 

offset 

e  r7 

9 

Cer0 

db 

cr.lf , 

'Null  Error? ' ,0 

Cerl 

a  b 

cr  ,if , 

'CRC  Error', 0 

Cer2 

d  o 

cr , if , 

'Seea  Error', 0 

Cer3 

db 

c  r ,  1  f , 

'Address  Error', 0 

Cer4 

d  b 

cr.lf , 

'Data  Overrun-Underrun 

Cer5 

db 

cr ,lf , 

'Write  Protect', 0 

Cer6 

db 

cr.lf. 

'Write  Error', 0 

Cer7  do  cr , if , 'Drive  Not  Ready', 0 

9 

dataend  equ  offset  $ 

9 

data_lenetn  equ  dataenl-da taoeein 

f 

;  reserve  space  in  R A!*  for  data  area 

i  (no  net  records  generated  ftere) 

DS  EG  0 

org  e2eeK 


» 


ram_s  tart 
• 

equ 

s 

9 

iTnis  is  tne 

i SEC  202 

iopb  (cnannei  command  -  7  bytes) 

DK_iopb 

rb 

1 

Jiopo  cnannei  word 

DK_io_com 

rb 

1 

;ic 

command 

DE_secs_tran 

r  o 

1 

inumoer  of  sectors  to  xfer 

DX~tracfc 

rb 

1 

Jtracic  to  read 

DK'sector 

r  b 

1 

;sec 

tor  to  read 

M_dma_add  r 

rv 

1 

;  dma 

addr  for  iSBC  202 

JSnl  of  iopb 
• 

1 

errt  bl 

rv 

9 

er0 

rb 

lengtn 

cer0  ;ib 

erl 

rb 

lengtn 

cerl 

er«J 

rc 

lengtn 

cer2 

er3 

rb 

lengtn 

cer3 

er4 

r  b 

lengtn 

cer4  *14 

er5 

rt 

lengtn 

cerb  ill 

sr5 

rb 

lengtn 

cerb  ; 1 5 

er7 

• 

r  c 

lengtn 

cer7  ;i? 

9 

leap_of fset 

TV 

1 

leap_segment 

• 

TV 

l 

9 

TV 

32 

iiocal  stacK 

stacs_offset 

• 

equ 

offset 

^*  stacic  from  nere  down 

9 

il2H  byte  sector  will 

oe  real  In  nere-5ENCvD  neader 

gennealer 

equ 

of 

fset  $ 

r  b 

1 

TV 

1 

abs_location 

TV 

1  iabsolute  load  location 

TV 

1 

TV 

1 

.  www  w*x  w  wwwww  ww  w  w  w  www  www  ww  ««  w  w  ««v  w  w 

** 

REMEX  pacK 

et  and  data  locations 

3? 

•  «  w  www  w  w  w  w  wv  w  w  w  ww  ww  w  w  ww  w  W’W’PW?  w  w?:w 

19b 


org  {Jfc5U4n 


p_modif lers 

rw 

1 

p~s  ta  tus 

rw 

1 

p_tracK_no 

rw 

1 

p~.dead_sec  t 

rw 

1 

p_me^i_addr 

rw 

1 

p_ms  o 

rw 

1 

p_vo  rd_count 

• 

rw 

1 

t 

{  or?  hls.ner 
• 

tnan  buffe 

r  to 

9 

org 

050en 

Ik  cnt 

r  b 

1 

{offset  of  P.Ef-EX  packet 
{function  ana  logic  ur.ii 
{returned  status 
{selected  tracu  number 
{selected  nead/sector  number 
♦buffer  address 
{extended  Dits  of  ouffer  addr 
{size  of  data  c  l  o  c  .< 


be  sure 

{number  retries 


wajt  ******1**  *********  *******  V  WWW  WWW  ***  **  ********  *********  1? 

*  End  of  CP/^-56  Customized  ROM  * 

*********** ***v ******************************************* 
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